Textdatei in Liste laden

[jfheins]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: integer; 
  aRec: TFahrzeugdaten; 
  pAuto: IAuto; 
begin 
    if OpenDialog1.Execute then 
        AssignFile(MyFile, OpenDialog1.FileName); // Diese Zeile Code nur Ausführen,
                                                  //wenn im Dialog "OK" geklickt wurde

// Folgendes immer ausführen
  Reset(MyFile); 
//Anzahl der Datensätze ermitteln und Arraygröße entsprechend setzen 
  i := 0; 
  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; 

end;

Fällt dir was auf?