Hilfe bei Save und Open Dialogs

[shmia]

Zitat von Coder1990:

Hab jetzt folgendes zusammengeschnipselt:

Delphi-Quellcode:

procedure SaveFile(Name:string;Pfad:WideString);
var
Datei: TextFile;
i:integer;
begin
AssignFile(Datei, Pfad + Name+'.txt');

Der Code Schnipsel von oben ist Quark. So wird's richtig:

Delphi-Quellcode:

// SaveFile() bekommt den ganzen Dateinamen inclusive Pfad übergeben - da reicht 1 Parameter
procedure SaveFile(const filename:string);
var
Datei: TextFile;
i:integer;
begin
AssignFile(Datei, filename);