Artikel teknis: Large Excel Workbook Performance in Delphi with HotXLS dalam bahasa Indonesia

Lokalisasi ini langsung membahas Large Excel Workbook Performance 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

Book := TXLSXWorkbook.Create;
try
  Sheet := Book.Sheets.Add('Bulk');
  for R := 1 to 100000 do
  begin
    Sheet.Cells[R, 1].Value := R;
    Sheet.Cells[R, 2].Value := 'Row ' + IntToStr(R);
    Sheet.Cells[R, 3].Value := R * 1.5;
  end;
  Book.StreamingWrite := True;   // sheet XML streams into the zip container
  Book.SaveAs('bulk.xlsx');
finally
  Book.Free;
end;

// hoist pool lookups out of the hot loop
HeaderFont := Book.Fonts.Add('Calibri', 11, True, False);   // 0-based pool index
for C := 1 to 24 do
  Sheet.Cells[1, C].FontIndex := HeaderFont + 1;            // cells store 1-based; 0 = default

procedure TLedgerExport.FillRow(Sender: TObject;
  SheetIndex, Row, FirstCol, LastCol: Integer;
  var Values: Variant; var Skip: Boolean; var Cancel: Boolean);
begin
  if Row > FCount then
  begin
    Cancel := True;     // stop the whole write
    Exit;
  end;
  Values := VarArrayOf([FRows[Row - 1].Account,
                        FRows[Row - 1].PostedOn,
                        FRows[Row - 1].Amount]);
end;

// one engine call instead of hundreds of thousands of property hits
Sheet.WriteRows(1, 1, FCount, 3, FillRow);

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

• The streaming write and batch job article
• the database export article
• HotXLS Component

Contoh kode tambahan

Names := TStringList.Create;
Book := TXLSXWorkbook.Create;
try
  if Book.GetSheetNames('big-unknown.xlsx', Names) <= 0 then
    raise Exception.Create('cannot enumerate sheets');   // failure clears the list
  // pick the target sheet, then decide whether a full Open is worth it
finally
  Book.Free;
  Names.Free;
end;