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