Hallo,
so von mir auch noch gute Besserung.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
aRec: TFahrzeugdaten;
pAuto: IAuto;
begin
if OpenDialog1.Execute then
AssignFile(MyFile, OpenDialog1.FileName);
Reset(MyFile);
//Anzahl der Datensätze ermitteln und Arraygröße entsprechend setzen
i := 0;
while not EOF(MyFile) do
begin
read(MyFile, aRec);
pAuto := TBackupClassesFactory.Auto;
pAuto.PS := aRec.ps;
pAuto.KW := aRec.kw;
pAuto.Name := aRec.fahrzeugName;
end;
end;
Er schreibt beim öffnen nichts in meine Liste.
Gruß,
Schnittcher