hallo!
kann mir vielleicht einer helfen?
ich möchte immernoch ein vorhandenes memofeld als .txt datei speichern.
das heisst, wenn ich beim dialog.filter "textdateien" auswähle, dann muss er das auch als textdatei speichern.
habe darüber leider noch nichts gefunden.
hier der code:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.Button2Click(Sender: TObject);
begin
SaveDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
SaveDialog1.Filter := 'Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*';
SaveDialog1.FilterIndex := 1; { Beim Start des Dialogs alle Dateien anzeigen }
if SaveDialog1.Execute and (SaveDialog1.FileName<>'') then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
begin
SaveDialog1.FileName:=SaveDialog1.FileName+'.txt';
end;
end. |
