LoadFromFile

[Schnittcher]

Hallo,

ich habe es schon mit mehreren Dateien versucht.

@nahpets

Meldungen:

1. Dateiname (mit Pfad),
2. 0
3. Keine Daten vorhanden. (Das wusste ich schon das er das denkt.)

Also ist vll. beim speichern ein Fehler?

So speicher ich die Dateien:

Delphi-Quellcode:

procedure TAutoList.SaveToFile(const FileName: string);
var
  Datei: file of TFahrzeugdaten;
  i: integer;
  datensatz: TFahrzeugdaten;
  Auto: IAuto;
begin
  AssignFile(Datei, Filename);
  Rewrite(Datei);
  try
    for i := 0 to Count - 1 do
    begin
      Auto := Items[i];
      datensatz.fahrzeugName := Auto.ErgebnisName;
      datensatz.kw := Auto.kw;
      datensatz.ps := Auto.ps;
      write(Datei, datensatz);
    end;
  finally
    CloseFile(Datei);
  end;
end;

Gruß,
Schnittcher