Optaeller de indlaeste celler i et klassisk XLS-regneark og kalder et programcallback for hver celle
Syntaks
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;
Bemaerkninger
ForEachCell gennemgaar kun celler, der eksisterer i den indlaeste regnearkmodel. Den scanner ikke alle mulige raekker og kolonner paa arket
Celler besoges i raekkeraekkefoelge. SheetIndex, Row og Col er 1-baserede offentlige koordinater. Value er den aktuelle cellevaerdi. Formula indeholder formelteksten for formelceller og er tom for ordinaere vaerdceller
Saet Cancel til True i callbacket for at stoppe scanningen tidligt. Returvaerdien er antallet af callbacks, der er foretaget
Eksempel
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 ogsaa