LoadFromFile
Hallo,
Delphi-Quellcode:
Ich rufe die Prozedur so auf:
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.
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;
Delphi-Quellcode:
Hier habe ich gerade gesehen, dass FileName diesen Inhalt hat: "E2003 Undeclared identifier: 'OpenDialog1'"
AutoList.LoadFromFile(OpenDialog1.FileName);
Sieht hier jemand einen Fehler? Die Datei soll immer leer sein, das ist sie aber nicht. Gruß, Schnittcher |
Re: LoadFromFile
Zitat:
sie dann leer sein. Grüße Klaus |
Re: LoadFromFile
Hallo,
sorry. Die Datei ist angeblich leer, dass ist Sie aber nicht. Gruß, Schnittcher |
Re: LoadFromFile
.. 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 |
Re: LoadFromFile
Hallo,
doch da ist ja was drin.
Delphi-Quellcode:
So lasse ich mir die Größe der Datei anzeigen.
ShowMessage(inttostr(FileSize(MyFile)));
Gruß, Schnittcher |
Re: LoadFromFile
Zitat:
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 |
Re: LoadFromFile
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 |
Re: LoadFromFile
Zitat:
(Es ist Freitagnachmittag, das Denken fällt mir schwer) Grüße Klaus |
Re: LoadFromFile
Zitat:
|
Re: LoadFromFile
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:47 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz