Problem bei ReadBuffer ;(

[neolithos]

Delphi-Quellcode:

procedure BIB_FileReplaceString(FileName, searchstring, replacestring: string);
var 
  fs: TFileStream; 
  S: string; 
begin
   // Erstellen der Variablen für die Datei
   fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone);
   try
      SetLength(S, fs.Size);
      fs.Read(PChar(S)^, fs.Size);
   finally
      fs.Free;
   end;

   // Ersetzen des Textes
   S  := StringReplace(S, SearchString, replaceString, [rfIgnoreCase]);
   fs := TFileStream.Create(FileName, fmCreate);
   try
      fs.Write(PChar(S)^, Length(S));
   finally
      fs.Free;
   end;
end;

Ich würde das so gestalten. Denn hinter einen Long-String steht eigentlich ein PChar.