Provede výčet načtených buněk v klasickém listu XLS a pro každou buňku zavolá zpětné volání aplikace
Syntaxe
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;
Poznámky
ForEachCell prochází pouze buňky, které existují v načteném modelu listu. Neprohledává každý možný řádek a sloupec listu
Buňky jsou navštěvovány v pořadí hlavních řádků. SheetIndex, Row a Col jsou veřejné souřadnice se základem 1. Value je hodnota buňky
Nastavte Cancel na True v zpětném volání pro předčasné zastavení prohledávání. Návratová hodnota je počet provedených zpětných volání
Příklad
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);
Viz také