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