LoadFromFile

[Schnittcher]

Hallo,

Delphi-Quellcode:

procedure TAutoList.LoadFromFile(const FileName: string);
var
  datensatz: TFahrzeugdaten;
  MyFile: file of TFahrzeugdaten;
  Auto: IAuto;
begin
  begin
    AssignFile(MyFile, FileName);
    try
      Reset(MyFile);
          ShowMessage(inttostr(FileSize(MyFile)));
      while not EOF(MyFile) do
      begin
        Auto := TBackupClassesFactory.Auto;
        read(MyFile, datensatz);
        Auto.SetValue(floattostr(datensatz.kw),avps);
//        Auto.ps := datensatz.ps;
//        Auto.KW := datensatz.kw;
//        Auto.Name := datensatz.fahrzeugName;
//        Auto.kmh := 0;
//        Auto.mph := 0;
        add(Auto);
        Count;
      end;
    finally
      CloseFile(MyFile);
    end;
  end;
end;
end.

Ich rufe die Prozedur so auf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
//  datensatz: TFahrzeugdaten;
//  MyFile: file of TFahrzeugdaten;
begin
  AutoList := TbackupClassesFactory.AutoList;
  if OpenDialog1.Execute then
  begin
    AutoList.LoadFromFile(OpenDialog1.FileName);
  end;
end;

AutoList.LoadFromFile(OpenDialog1.FileName); Hier habe ich gerade gesehen, dass FileName diesen Inhalt hat: "E2003 Undeclared identifier: 'OpenDialog1'"

Sieht hier jemand einen Fehler?
Die Datei soll immer leer sein, das ist sie aber nicht.

Gruß,
Schnittcher