Dataset-Daten als XLS-Datei ohne Excel abspeichern

[kamel08]

Hallo Himitsu;
danke für die schnelle Antwort.

Ich hab' den Code nochmals etwas abgeändert:

Delphi-Quellcode:

Procedure TForm1.SaveCDS2XLS(CDS:TClientDataSet);
var XLS: TXLS_DateiClass;
var s:String;
begin
     SaveDialog1.DefaultExt := 'xls';
     SaveDialog1.FileName := '*.xls';
     SaveDialog1.Filter := 'Microsoft Office Excel-Datei(*.xls)|*.xls';
     SaveDialog1.Title := 'Microsoft Office Excel-Datei (*.xls) speichern';
     SaveDialog1.HistoryList.Clear;
     If SaveDialog1.Execute then
     begin
          s := SaveDialog1.FileName;
          XLS:= TXLS_DateiClass.Create;
          try
             xls.XLSDateiName:= s;
             // ShowMessage ist aus Dialogs
             ShowMessage(xls.XLSDateiName); // << funktioniert nicht
             //ShowMessage(s); // << funktioniert
             XLS.XLSDataSet:= CDS;
             XLS.XLS_DateiErstellen;
             CDS.First;
          finally
             XLS.Free;
          end;
end;
end;

Und passiert dieses Hängenbleiben auch außerhalb der IDE, bzw. ohne Debugger?

JA! Auch außerhalb der IDE stürzt das Programm ab,
und...mir fiel ebenfalls auf, dass set und get vertauscht sind,
vielleicht besteht darin das Problem, denn der lesezugriff ruft folglich nicht get sondern set-oder?

muss weg, komme später wieder rein cu

Gruß
kamel