ich hab das jetztmal so versucht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
f: File;
s: string;
ww: string;
wu: string;
i: integer;
begin
ww := 'blaaa';
wu := 'hallo';
s := ww;
AssignFile(f, pfad);
reset(f);
for i := 0 to FileSize(f) - Length(ww)-1 do
begin
Seek(f, i);
BlockRead(f, ww[1], Length(ww));
if ww = s then
BlockWrite(f, wu[1], Length(wu));
Application.ProcessMessages;
end;
CloseFile(f);
end;
testweise in einer textdatei, in dieser steht "blaaa" wird aber nicht durch "hallo" ersetzt, ist da ein fehler?