Hallo,
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
begin
read(MyFile, datensatz);
Auto.PS := datensatz.ps;
Auto.KW := datensatz.kw;
Auto.Name := datensatz.fahrzeugName;
// [DCC Warning] Unit1.pas(135): W1057 Implicit string cast from 'ShortString' to 'string'
Auto.kmh := 0;
Auto.mph := 0;
AutoList.add(Auto);
lbEintraege.Caption := IntToStr(AutoList.Count);
end;
CloseFile(MyFile);
end;
end;
Mir wird jetzt immer der gleiche Eintrag angezeigt.
Kann jemand einen Fehler finden.
Gruß,
Schnittcher