Klasik XLS çalışma sayfasındaki yüklü hücreleri numaralandırır ve her hücre için uygulama geri çağırmasını ç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üklü çalışma sayfası modelinde mevcut olan hücreleri gezer. Sayfadaki olası her satır ve sütunu taramaz
Hücreler satır-ana sırayla ziyaret edilir. SheetIndex, Row ve Col 1 tabanlı genel koordinatlardır. Value geçerli hücre değeridir. Formula formül hücreleri için formül metnini içerir; sıradan değer hücreleri için boştur
Taramayı erken durdurmak için geri çağırmada Cancel'ı True olarak ayarlayın. Dönüş değeri yapılan geri çağırma 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);
Ayrıca bakınız