Datei einlesen / bearbeiten / speichern

[Ferber]

Hi, Das sollte funktionieren.

Delphi-Quellcode:

function ReplaceString(InFileName, OutFileName, SearchString, ReplaceString:String):Integer;
var
  s:TMemoryStream;
  p:PChar;
begin
  Result := 0;
  If (SearchString = '') then exit;
  if Length(SearchString)<>Length(ReplaceString) then exit;
  s:=TMemoryStream.Create;
  try
    s.LoadFromFile(InFileName);
    Result:=Pos(SearchString, String(s.Memory));
    if Result>0 then
       begin
         p:=PChar(ReplaceString);
         Move(p^, Pointer(Integer(s.Memory)+Result-1)^,Length(SearchString));
       end;
    s.SaveToFile(OutFileName);
  finally
    s.Free;
  end;
end;

Gruss, Otto