Popis naloženih celic v klasičnem delovnem listu XLS in kliče povratni klic aplikacije za vsako celico
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;
Opombe
ForEachCell obišče samo celice, ki obstajajo v naloženim modelu delovnega lista. Ne preiskuje vsake možne vrstice in stolpca na listu
Celice so obiskane po vrstičnem vrstnem redu. SheetIndex, Row in Col so javne koordinate na osnovi 1. Value je trenutna vrednost celice. Formula vsebuje besedilo formule za celice s formulami in je prazno za navadne vrednostne celice
Nastavite Cancel na True v povratnem klicu za zgodnjim zaustavitvijo preiskovanja. Povratna vrednost je število izvedenih povratnih klicev
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);
Glejte tudi