Excel - Export ohne Excel - Problem beim erzeugen

[alzaimar]

Hach, hätt nur hinshauen müssen, kukstu:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var XLSFile : TXLSExport;
    x, y    : Integer;
    Spalten, Zeilen: String;
begin
  if savedialog1.Execute then begin
    if fileexists(savedialog1.filename) then DeleteFile(savedialog1.filename);
    XLSFile := TXLSExport.Create(savedialog1.filename);
    try
      y := 0;
      repeat
        Spalten := StringGrid2.Cells[x,y]; <--- wieso das denn?
        XLSFile.Write(x,y,Spalten);        <-- welchen Wert hat x beim 1.Durchlauf?
        x := 0;
        repeat
          Zeilen := StringGrid2.Cells[x,y];
          XLSFile.write(x,y, Zeilen);
          x := x + 1;
        until x = StringGrid2.ColCount;
        y := y + 1;
      until y = StringGrid2.RowCount;
    finally
      XLSFile.free;
    end;
  end;
end;

Das sollte reichen....