Textdatei in Record Muster überführen

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);  //Konvertieren: inhalt textfile an record datei übergeben
                                             
var srcfile: textfile;
    destfile: file of Tperson;
    line: string;
    person: Tperson;
begin
  assignfile(srcfile,'adressen.txt');     //Quelle öffnen
  reset(srcfile);
  assignfile(destfile,'recadressen.dat'); //Ziel öffnen
  rewrite(destfile);
  memo1.clear;
  while not eof(srcfile) do
  begin
    repeat readln(srcfile, line)          //Zeile lesen
    until line <> '';                     //bis irgendwas in line drin ist
    //linetorec(line);                      //lineToRec ist eine Funktion mit dem Rückgabewert TPerson

    person := lineToRec(line);             
    write(destfile, person);              //die Zieldatei (record) 
beschreiben.*Warning: Local var person does
                                           //not seem to be initialized.
   // oder write(destFile,lineToRec(line));
  end;
  closefile(destfile);
  closefile(srcfile);

end;

Grüße
Klaus