Progresbar til fil

Hvad med at bruge GetFileSize api etc for at finde ud af hvor stor filen er, for så derefter at læse chunks af filen af kendt størrelse og summere antal læste bytes, og sammenligne med filen størrelse??
Læs evt. en linje ad gangen og find ud af hvor stor hver enkelt linje er og sum det hele op...?


/a

prøv at kig i biblioteket Help\\examples\\jpeg

der finder du opdatering til indlæsning af et jpeg billede


procedure TForm1.ProgressUpdate(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
  if Stage = psRunning then
    Caption := Format(\'%d%%\',[PercentDone])
  else
    Caption := \'Form1\';
end;

Øh
kan du ikke lige forklare mig lidt om hvad der sker i den kode

er der ingen der har et Eks ????

hvadså\' er der ingen der har en løsning på mit problem

Øv jeg lukker spørgsmålet da der ikke er kommet nogle brugbar løsninger, men er der en som har løsningen åbner jeg gerne et nyt spørgsmål
Anold