direkt positioniertes Schreiben in eine Datei

[shmia]

Delphi-Quellcode:

procedure SaveStringToFileAtPos(const filename, data:string; Position : Integer);
var
   fs : TStream;
begin
   fs := TFileStream.Create(filename, fmReadWrite or fmShareDenyWrite);
   try
      fs.Position := Position;
      fs.WriteBuffer(data[1], Length(data));
   finally
      fs.Free;
   end;
end;