nee, nur andere Prozeduren. Ich versuch das mal mit FileMode:=2; zu machen. Soweit scheint das jetzt zu funzen.
Delphi-Quellcode:
...
for i:=delete to (filesize(f1)-1) do
begin
FileMode:=2;
reset(f1);
seek(f1,i);
read(f1,liste);
seek(f1,i-1);
Write(f1,liste);
end;
seek(f1,filesize(f1)-1);
truncate(f1);
...