Save Dialog

[Razor90]

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
var  a:integer;
     T:Textfile;
     dtn:string;

begin
 saveDialog1.Execute;
 dtn := (saveDialog1.Filename);
 Assignfile(T,dtn);
 Rewrite(T);
 a:=0;
 writeln(T,aa);
 repeat
 a:=a+1;
 writeln(T,person[a].Name);
 writeln(T,person[a].Vorname);
 writeln(T,person[a].Geschlecht);
 writeln(T,person[a].Alter);
 writeln(T,person[a].Beruf);
 writeln(T,person[a].Hobby);
 writeln(T,person[a].Kartei);
 until a=aa;
 closefile(T);
 end;

So sieht der Code jetzt aus...allerdings weiß ich nicht wo ich hier eine antwort bekomme.