Nabrajuje učitane ćelije u klasičnom XLS radnom listu i poziva callback aplikacije za svaku ćeliju
Sintaksa
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;
Napomene
ForEachCell prolazi samo kroz ćelije koje postoje u učitanom modelu radnog lista. Ne skenira svaki mogući red i kolonu u listu
Ćelije se posećuju u redosledu po redovima. SheetIndex, Row i Col su javne koordinate zasnovane na 1. Value je trenutna vrednost ćelije. Formula sadrži tekst formule za ćelije sa formulama i prazan je za obične ćelije vrednosti
Postavite Cancel na True u callback-u da biste rano zaustavili skeniranje. Povratna vrednost je broj pozivanja callback-ova
Primer
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);
Vidi takođe