Hallo!
Noch kürzer ist:
Delphi-Quellcode:
procedure TForm1.ButtonClick(Sender: TObject);
begin
ForceDirectories('C:\irgendwas\ass\fjk\');
Memo1.Lines.SaveToFile('C:\irgendwas\ass\fjk\' + 'Dateinamen.txt');
end;
(den '\' zwischen Verzeichnis und Dateimanen nicht vergessen, gelle!)
ForceDirectories legt die angegebenen Dirs an, wenn es nötig ist. Existiert schon alles, ist es nicht nötig und es geschieht nichts!
Persönlich schreibe ich bei sowas übrigen immer so:
Delphi-Quellcode:
const verzeichnis = 'C:\irgendwas\ass\fjk\';
procedure TForm1.ButtonClick(Sender: TObject);
begin
ForceDirectories(verzeichnis);
Memo1.Lines.SaveToFile(verzeichnis + 'Dateinamen.txt');
end;
Vorteile:
1. Sicherheit vor Tippfehlern
2. Bei Änderungen des Verzeichnisses nur 1 Änderung für alle Stellen, wo das benutzt wird.
Gruß
Dietmar Brüggendiek