Klasik bir XLS çalışma sayfasındaki yüklenmiş hücreleri numaralandırır ve her hücre için bir uygulama callback'i çağırır
Sözdizimi
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;
Açıklamalar
ForEachCell yalnızca yüklenen çalışma sayfası modelinde var olan hücrelerde gezer; sayfadaki olası her satır ve sütunu taramaz
Cells are visited in row-major order. SheetIndex, Row, and Col are 1-based public coordinates. Value is the current cell value. Formula formül hücreleri için formül metnini içerir ve sıradan değer hücreleri için boştur
Set Cancel to True taramayı erken durdurmak için callback içinde geçirilir. Dönüş değeri, yapılan callback sayısıdır
Örnek
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);
See Also