Hallo Chemiker;
toller Beitrag, danke.
Ich habe das Problem bisher anders, aber mit mehr Aufwand gelöst
und möchte nun gerne Deinen Code nutzen,
der eigentlich auch einwandfrei funktioniert.
Beim Testen trat aber ein rätselhafter Fehler auf:
Wenn ich mir mit 'ShowMessage(xls.XLSDateiName)' den Dateinamen anzeigen lassen möchte,
hängt sich die
IDE auf.
Woran liegt das
Delphi-Quellcode:
procedure TForm1.VergleichsmusterExportButtonClick(Sender: TObject);
var XLS: TXLS_DateiClass;
begin
XLS:= TXLS_DateiClass.Create;
try
xls.XLSDateiName:= 'Musternahme.XLS';
XLS.XLSDataSet:= Musternahme; // Musternahme ist ein TClientDataSet
XLS.XLS_DateiErstellen;
Musternahme.First;
finally
ShowMessage(xls.XLSDateiName); // << Hier entsteht der Fehler, Delphi hängt sich auf
XLS.Free;
end;
end;