Menghitung sel yang dimuat dalam worksheet XLS klasik dan memanggil callback aplikasi untuk setiap sel
Sintaks
type
TXLSCellReadEvent = procedure(
Sender: TObject;
SheetIndex, Row, Col: Integer;
const Value: Variant;
const Formula: WideString;
var Cancel: Boolean) of object;
function ForEachCell(Callback: TXLSCellReadEvent): Integer;
Keterangan
ForEachCell hanya berjalan pada sel yang ada dalam model worksheet yang dimuat. Ia tidak memindai setiap kemungkinan baris dan kolom dalam lembar
Sel dikunjungi dalam urutan baris-utama. SheetIndex, Row, dan Col adalah koordinat publik berbasis-1. Value adalah nilai sel saat ini. Formula berisi teks formula untuk sel formula dan kosong untuk sel nilai biasa
Tetapkan Cancel ke True dalam callback untuk menghentikan pemindaian lebih awal. Nilai kembalian adalah jumlah callback yang dilakukan
Contoh
procedure TForm1.ReadCell(Sender: TObject; SheetIndex, Row, Col: Integer;
const Value: Variant; const Formula: WideString;
var Cancel: Boolean);
begin
Memo1.Lines.Add(Format('%d:%d = %s', [Row, Col, VarToStr(Value)]));
if Row >= 1000 then
Cancel := True;
end;
Visited := Workbook.Sheets[1].ForEachCell(ReadCell);
Lihat juga