Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Auto: IAuto;
datensatz: TFahrzeugdaten;
MyFile: file of TFahrzeugdaten;
begin
Auto := TBackupClassesFactory.Auto;
AutoList := TbackupClassesFactory.AutoList;
if OpenDialog1.Execute then
begin
AssignFile(MyFile, OpenDialog1.FileName);
Reset(MyFile);
while not EOF(MyFile) do // <-- hier mal einen Breakpoint setzen und mit F8 schrittweise den Code abarbeiten
begin
read(MyFile, datensatz);
Auto.PS := datensatz.ps; // Datensatz.ps markieren und Ctrl+F5 drücken
Auto.KW := datensatz.kw; // Datensatz.kw markieren und Ctrl+F5 drücken
Auto.Name := datensatz.fahrzeugName; // Datensatz.fahrzeugName markieren und Ctrl+F5 drücken
Auto.kmh := 0;
Auto.mph := 0;
AutoList.add(Auto);
lbEintraege.Caption := IntToStr(AutoList.Count);
end;
CloseFile(MyFile);
end;
end;
Mit ctrl+F5 kannst Du dir Variablen in der Watchlist anschauen
ändern sich da die Werte?
Zählt AutoList.count hoch?
Sind in der Datei auch unterschiedliche Werte gespeichert?
Grüße
Klaus