Enumeruje načítané bunky v klasickom XLS pracovnom liste a zavolá spätné volanie aplikácie pre každú bunku
Syntax
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;
Popis
ForEachCell walks only cells that exist in the loaded worksheet model. It does not scan every possible row and column in the sheet
ForEachCell prechádza iba bunky, ktoré existujú v načítanom modeli pracovného listu. Neprehľadáva každý možný riadok a stĺpec v liste
Bunky sú navštívené v poradí podľa riadkov. SheetIndex, Row a Col sú 1-základné verejné súradnice. Value je aktuálna hodnota bunky. Formula je text vzorca, ak je prítomný
Pozri tiež
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);
Pozri tiež
Nastavte Cancel na True v spätnom volaní na predčasné zastavenie prehľadávania. Návratová hodnota je počet uskutočnených spätných volaní