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);