Fortschrittsanzeige bei Ladevorgang mir Read();

[Yheeky]

Hi,

ich lade meine Daten wie folgt:

Code:

  Datei : File of TTest;
  Datenliste : TTest;

[...]

AssignFile(Datei,ProgrammPfad + test.dat');
Reset(Datei);
Read(Datei,Datenliste);
CloseFile(Datei);

Kann ich hierzu eine Fortschrittanzeige machen? Wenn ja, wie? Wüsste jetzt nicht, wo ich da ansetzen könnte. Danke schonmal!

Gruß Yheeky

[Chewie]

Mit der Funktion FileSize bekommst du die Anzahl der Datensätze der Datei. Das kannst du benutzen als Max-Wert deiner Fortschrittsanzeige.

[Assarbad]

Und TProgressBar nimmt man üblicherweise für eine Fortschrittsanzeige.

[Chewie]

Oder TGauge.

[Matze]

Ich würde Gauge empfehlen, denn dann steht, ohne dass man was coden muss, auch der Fortschritt in Prozent dabei..

[Hansa]

ähhmmm, wo ist denn das TGauge? :shock: Also ich habe bestimmt in diesem Jahr 1.000-2.000 Seiten über Delphi gelesen, vom Internet ganz zu schweigen. In der OH ist das Wort ein einziges mal zu finden. Und das noch in Zusammenhang mit was ganz anderem und nur in der englischen. 8)

[Chewie]

Das ist in der Palette "Beispiel". Deshalb ist es wohl auch nicht dokumentiert.

[Hansa]

Ja, da ist es tatsächlich. 8) Aber im 5kg-Handbuch überhaupt nichts zu schreiben finde ich echt unverschämt. :evil:

P.S.: für 59 EUR extra :!:

[Yheeky]

Okay, danke schonmal. Mit FileSize kann ich also den Max-Wert auslesen. Wie aber kann ich die aktuelle Position auslesen?

[Christian Seehase]

Moin Yheeky,

indem Du einen Zähler mitlaufen lässt.