Textdatei in Liste laden

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  aRec: TFahrzeugdaten;
  pAuto: IAuto;
begin
  if OpenDialog1.Execute then
    begin //<-- wichtig!  
      AssignFile(MyFile, OpenDialog1.FileName);
      Reset(MyFile);
      while not EOF(MyFile) do
        begin
          read(MyFile, aRec);
          pAuto := TBackupClassesFactory.Auto;
          pAuto.PS := aRec.ps;
          pAuto.KW := aRec.kw;
          pAuto.Name := aRec.fahrzeugName;
        end;
      CloseFile(MyFile); //<-- nicht vergessen
    end; //s.o.
end;