Tek çağrıyla klasik XLS çalışma sayfasına 2 boyutlu değerler dizisi yazar
Sözdizimi
type
TXLSCellWriteEvent = procedure(
Sender: TObject;
SheetIndex, Row, Col: Integer;
var Value: Variant;
var Skip: Boolean;
var Cancel: Boolean) of object;
function WriteCells(ARange: WideString; Callback: TXLSCellWriteEvent): Integer; overload;
function WriteCells(ARow1, ACol1, ARow2, ACol2: Integer; Callback: TXLSCellWriteEvent): Integer; overload;
Açıklamalar
Metot, matristeki her değer için tek tek hücre erişimini atlayarak toplu hücre yazımını sağlar. Desteklenen değer türleri metin, tamsayı, kayan noktalı sayılar, tarihler ve boş değerlerdir. Her değer, mevcut biçimlendirme dokunulmadan söz konusu hücreye yazılır
Bu örnek A1'den G5'e kadar tek bir çağrıyla 5 satır 7 sütunluk veri yazar
Örnek
procedure TForm1.WriteCell(Sender: TObject; SheetIndex, Row, Col: Integer;
var Value: Variant; var Skip: Boolean; var Cancel: Boolean);
begin
if Col = 3 then
begin
Skip := True;
Exit;
end;
Value := Format('R%dC%d', [Row, Col]);
if Row >= 1000 then
Cancel := True;
end;
Written := Workbook.Sheets[1].WriteCells('A1:D2000', WriteCell);
Ayrıca bakınız