Daten mit AssignFile ändern oder anfügen

[marabu]

Mit einem FileStream würde es etwa so funktionieren:

Delphi-Quellcode:

procedure WriteString(fileName, s: string; pos: cardinal);
begin
  if FileExists(fileName) then
    with TFileStream.Create(fileName, fmOpenWrite, fmShareDenyWrite) do
    begin
      Position := pos;
      Write(s[1], Length(s));
      Free;
    end;
end;

Grüße vom marabu