Fortschritt Datei einlesen

[p80286]

Ich hab mal ein wenig gebastelt:

Delphi-Quellcode:

const
  rZ=1024;
var
  p       : integer;
  ds      : string;
  fs      : tfilestream;
  gelesen : integer;
begin
  fs:=tfilestream.Create('c:\temp\Testdatei.txt',fmOpenRead or fmShareDenyNone);
  p:=1;
  setlength(ds,fs.size);
  repeat
    gelesen:=fs.Read(ds[p],rz);
    inc(p,gelesen);
    progressbar1.stepit;
  until gelesen<rz;
  fs.Free;
  p:=1;
  repeat
    p:=posex('@@',ds,p);
    if p>0 then begin
      ds[p]:='#';
      ds[p+1]:='#';
    end;
  until p<1;
  label1.Caption:=ds;
end;

funktionieren tut's, aber da kann noch einiges optimiert werden.
(z.B. rz=102400)

Gruß
K_H