Räknar upp laddade celler i ett klassiskt XLS-kalkylblad och anropar ett programåterkallningsanrop för varje cell
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;
Anmärkningar
function ForEachCell(ACallback: TXLSForEachCellCallback): Integer;
ForEachCell går bara igenom celler som finns i den laddade kalkylbladsmodellen. Den söker inte igenom varje möjlig rad och kolumn i bladet
Celler besöks i radordning. SheetIndex, Row och Col är 1-baserade offentliga koordinater. Value innehåller cellens aktuella värde
Exempel
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);
Se även
Sätt Cancel till True i återanropet för att stoppa genomsökningen tidigt. Returvärdet är antalet återanrop som gjordes