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