Reemplazar el contenido de un fichero

[Urticaria]

Empezado por Neftali

¿Puedes poner el código que utilizas?
Creo que lo más sencillo es utilizar un TStrings; Cargar el fichero, reemplazar y volver a escribir, si el ficheros relativamente pequeño.

Código Delphi [-]
procedure modificar (s:string);
var
   f:TextFile;
   c:char;
   cad:string;
   cadena: PAnsiChar; //Da igual "PAnsiChar" o "string".
   e:boolean;

begin
   cadena:='Cadena_a_buscar';
   Assign (f,s);
   Reset (f);

   while not Eof(f) do
   begin
      Readln (f,cad);
      if AnsiContainsStr(cad, cadena) then
      begin
      //Aqui hay que reemplazar en el fichero la cadena
        writeln (cadena + ' esta contenido en ' + cad);
        cad:= StringReplace (cad, cadena, 'Aquesto',[rfReplaceAll]);
        writeln (cad);
      end;
      cad := EmptyStr;
   end;
   close(f);
end;

Aqui tienes el procedimiento, aqui lo que hago es leer del fichero, modificar la cadena. Podria escribir la cadena modificada en el fichero, pero entonces tendria las dos lineas (original y modificada) en el fichero, cosa que no quiero.

Muachas gracias.