Artikel teknis: Template-Based Excel Report Generation in Delphi with HotXLS dalam bahasa Indonesia

Lokalisasi ini langsung membahas Template-based Excel report generation in Delphi with HotXLS dan memakai artikel bahasa Inggris yang sudah diperbarui sebagai acuan teknis untuk tim Delphi, PDF, dan perangkat lunak dokumen

Halaman ini mengubah artikel dasar yang diperbarui menjadi titik pemeriksaan konkret untuk desain, implementasi, dan validasi

Materi yang disinkronkan dari artikel bahasa Inggris

Artikel dasar berbahasa Inggris kini memiliki konteks implementasi, keputusan teknis, dan contoh yang lebih konkret, sehingga halaman ini diposisikan sebagai panduan kerja, bukan ringkasan pendek

Bagian penting dalam artikel dasar yang diperbarui:

• Gunakan file masukan kecil yang dapat direproduksi sebelum fitur disambungkan ke data produksi
• Pertahankan nama produk, nama API, nama file, dan nilai literal apa adanya
• Simpan keluaran validator dan informasi versi bersama file contoh yang dibuat

Pilihan implementasi praktis

Mulailah dari jenis file, keluaran yang diharapkan, dan kondisi kesalahan yang harus dilihat pengguna. Lalu hubungkan setiap panggilan API dengan hasil yang bisa diperiksa agar validasi, logging, dan dukungan dapat mereproduksi kasus pelanggan

• Gunakan file masukan kecil yang dapat direproduksi sebelum fitur disambungkan ke data produksi
• Pertahankan nama produk, nama API, nama file, dan nilai literal apa adanya
• Simpan keluaran validator dan informasi versi bersama file contoh yang dibuat

Kode dan titik API

Contoh kode dipertahankan apa adanya agar pengembang dapat membandingkannya langsung dengan proyek Delphi, C++Builder, dan Lazarus/FPC

var
  Book: TXLSXWorkbook;
  Sheet: TXLSXWorksheet;
  R, C: Integer;
begin
  Book := TXLSXWorkbook.Create;
  try
    if Book.Open('invoice-template.xlsx') <> 1 then
      raise Exception.Create('Cannot open invoice template');
    Sheet := Book.Sheets[0];               // TXLSXSheets.Items is 0-based

    if not Sheet.FindText('{{CUSTOMER}}', R, C) then
      raise Exception.Create('Template drift: {{CUSTOMER}} anchor missing');
    Sheet.Cells[R, C].Value := 'ACME Corp';

    if Sheet.ReplaceText('{{DATE}}',
         FormatDateTime('yyyy-mm-dd', Date)) = 0 then
      raise Exception.Create('Template drift: {{DATE}} token missing');
    // detail expansion and save follow below
  finally
    Book.Free;
  end;
end;

const
  DetailRow = 10;            // the formatted sample row in the template
var
  I: Integer;
begin
  // Open space before the totals block first, so the SUM range
  // below the detail band stretches together with the data.
  if Length(Items) > 1 then
    Sheet.InsertRows(DetailRow + 1, Length(Items) - 1);

  for I := 0 to High(Items) do
  begin
    if I > 0 then              // clone styles + formulas from the sample row
      Sheet.CopyRange(DetailRow, 1, DetailRow, 5, DetailRow + I, 1);
    Sheet.Cells[DetailRow + I, 1].Value := Items[I].Name;
    Sheet.Cells[DetailRow + I, 2].Value := Items[I].Qty;
    Sheet.Cells[DetailRow + I, 3].Value := Items[I].UnitPrice;
    Sheet.Cells[DetailRow + I, 4].Formula :=
      Format('B%d*C%d', [DetailRow + I, DetailRow + I]);  // no '=' prefix
  end;
end;

var
  Total: Variant;
  LastDetail: Integer;
begin
  LastDetail := DetailRow + Length(Items) - 1;
  Total := Book.Calculate(Format('SUM(Invoice!D%d:D%d)',
    [DetailRow, LastDetail]));
  if (not VarIsNumeric(Total)) or
     (Abs(Total - ExpectedTotal) > 0.005) then
    raise Exception.Create('Invoice total does not match the order record');

  if Book.SaveAs('invoice-2026-0611.xlsx') <> 1 then
    raise Exception.Create('Save failed: check output path and permissions');
end;

Pemeriksaan sebelum rilis

Periksa file keluaran dengan alat yang sama seperti yang digunakan pelanggan atau arsip. Catat versi komponen, data uji, versi validator, dan hasil yang diamati agar regresi berikutnya dapat dilacak dengan tepat

Bacaan terkait

• our article on merged cells in layout-driven report templates
• the companion article on defined names and cross-sheet formulas
• our article on streaming writes for server batch jobs