LoadFromFile

[Klaus01]

Zitat:

Beim Laden sollen die Daten der Datei in eine Liste eingetragen werden.
Aber es wird nie was eingetragen.
Er geht immer gleich zu CloseFile.

.. nun, das verstehe sogar ich.

Delphi-Quellcode:

procedure TAutoList.LoadFromFile(const FileName: string);
var
  datensatz: TFahrzeugdaten;
  MyFile: file of TFahrzeugdaten;
  Auto: IAuto;
begin
  begin
    AssignFile(MyFile, FileName);
    try
      Reset(MyFile);
          ShowMessage(inttostr(FileSize(MyFile)));
     Seek(MyFile,0);                              // hilft das?
      while not EOF(MyFile) do
      begin
        Auto := TBackupClassesFactory.Auto;
        read(MyFile, datensatz);
        Auto.SetValue(floattostr(datensatz.kw),avps);
//        Auto.ps := datensatz.ps;
//        Auto.KW := datensatz.kw;
//        Auto.Name := datensatz.fahrzeugName;
//        Auto.kmh := 0;
//        Auto.mph := 0;
        add(Auto);
        Count;
      end;
    finally
      CloseFile(MyFile);
    end;
  end;
end;
end.

Grüße
Klaus