Also, irgendwie bin ich zu dumm dafür. Habe jetzt den Code auf meine Verhältnisse angepasst. Klapp aber nicht. Die Endungen werden nicht hinzugefügt.
Delphi-Quellcode:
SaveDialog1.Title := '
Exportieren';
SaveDialog1.Filter := '
Alle Dateien (*.*)|*.*'
+ '
|Text-Dateien (*.txt)|*.txt'
+ '
|CSV-Dateien (*.csv)|*.csv';
with SaveDialog1
do begin
FilterIndex := 1;
FileName := '
NamenLos';
if Execute
then
Memo1.Lines.SaveToFile(FileName);
end;
Es wird immer nur NamenLos gespeichert. Was mache ich da falsch? Hat Einer von Euch einen Tipp?