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

[Klaus01]

Zitat von Schnittcher:

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

Gruß,
Schnittcher

..nun, wenn niemand den Inhalt der Datei löscht warum sollte
sie dann leer sein.

Grüße
Klaus

[Schnittcher]

Hallo,

sorry.
Die Datei ist angeblich leer, dass ist Sie aber nicht.

Gruß,
Schnittcher

[Klaus01]

.. wie stellst Du denn fest ob die Datei leer ist oder nicht?

Ist FileSize(MyFile) = 0?

Wenn Du dir die Datei mit einem (Hex)Editor anschaust, ist dann nichts drinnen?

Grüße
Klaus

[Schnittcher]

Hallo,

doch da ist ja was drin.

ShowMessage(inttostr(FileSize(MyFile))); So lasse ich mir die Größe der Datei anzeigen.

Gruß,
Schnittcher

[Klaus01]

Zitat von Schnittcher:

Hallo,

doch da ist ja was drin.

ShowMessage(inttostr(FileSize(MyFile))); So lasse ich mir die Größe der Datei anzeigen.

Gruß,
Schnittcher

Erklär mal Dein Problem etwas genauer.
Ich denke wir schreiben aneinander vorbei.

Wenn FileSize(MyFile) > 0 ist, dann ist die Datei nicht leer.
Wieso bist Du dann der Meinung das sie leer sein sollte?

Grüße
Klaus

[Schnittcher]

Hallo,

nochmal, ich will nicht das die Datei leer ist, sie enthält Daten, aber wenn ich das Programm starte wird mir immer gesagt, dass die Datei leer ist. Sie also eine Dateigröße von 0 hat. Aber das hat sich ja nicht. Sie hat ja Inhalt.

Gruß,
Schnittcher

[Klaus01]

Zitat von Schnittcher:

Hallo,

nochmal, ich will nicht das die Datei leer ist, sie enthält Daten, aber wenn ich das Programm starte wird mir immer gesagt, dass die Datei leer ist. Sie also eine Dateigröße von 0 hat. Aber das hat sich ja nicht. Sie hat ja Inhalt.

Gruß,
Schnittcher

Wie prüfst Du das beim Starten des Programms?

(Es ist Freitagnachmittag, das Denken fällt mir schwer)
Grüße
Klaus

[Fussball-Robby]

Zitat von Schnittcher:

wird mir immer gesagt, dass die Datei leer ist. Sie also eine Dateigröße von 0 hat.

Ich denke die Frage ist hier, wie dir das gesagt wird. In einer Fehlermeldung? Oder per ShowMessage? Irgendwas funktioniert ja nicht, wir können aber nur helfen, wenn wir wissen, welcher Teil des Codes nicht richtig funktioniert.

[Schnittcher]

Hallo,

ich versuche es nochmal.

Beim Laden sollen die Daten der Datei in eine Liste eingetragen werden.
Aber es wird nie was eingetragen.
Er geht immer gleich zu CloseFile.

Gruß,
Schnittcher