Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Fortschrittsanzeige bei Ladevorgang mir Read();

**Chewie**

Ach so, ich sehe, du liest das Array in einem Rutsch aus der Datei.
So kannst du natürlich keine Fortschrittsanzeige implementieren, da du ja nur eine Aktion durchführst. Probiers mal so:

zusammenfalten · markieren

Delphi-Quellcode:

			  Datei : File of TTest; 

  Datenliste : TTest; 

  i: Integer;

[...] 

AssignFile(Datei,ProgrammPfad + test.dat'); 

Reset(Datei);

SetLength(DatenListe, FileSize(Datei)); 

for i := 1 to FileSize(Datei) do

  Read(Datei,DatenListe[i-1]); 

CloseFile(Datei);

Jetzt hast du in i deinen Fortschritt stehen.

Einzelnen Beitrag anzeigen

Re: Fortschrittsanzeige bei Ladevorgang mir Read();