Excel - Export ohne Excel - Problem beim erzeugen

[marabu]

Hallo ihr zwei,

niedliche unit - keine Probleme.

Delphi-Quellcode:

procedure TDemoForm.SaveButtonClick(Sender: TObject);
var
  xf: TXLSExport;
  iCol, iRow: integer;
begin
  if not SaveDialog.Execute then Exit;
  if FileExists(Savedialog.Filename) then
    DeleteFile(SaveDialog.Filename);
  xf := TXLSExport.Create(savedialog.filename);
  for iRow := 0 to StringGrid.RowCount - 1 do
    for iCol := 0 to StringGrid.ColCount - 1 do
      if iRow = 0 then // Ausgabe Spaltenköpfe als string
        xf.Write(iCol, iRow, StringGrid.Cells[iCol, iRow])
      else // der Rest sind integer Werte
        xf.Write(iCol, iRow, StrToInt(StringGrid.Cells[iCol, iRow]));
  xf.Free;
end;

Grüße vom marabu