Abrir fichero de texto y reemplazar cadena

[ZayDun]

Empezado por ecfisa

Hola.

Seguramente el texto que se inserta desde el memo tenga saltos de líneas, podrías quitarlos de este modo:

Código Delphi [-]
procedure ReplaceAndSave(const Name: string; Old, New: string);
begin   
New:= StringReplace(New, #13#10, '', [rfReplaceAll]);  //quitar las ocurrencias de #13#10
    with TStringList.Create do   
try     LoadFromFile(Name);     
Text:= StringReplace(Text, Old, New, [rfReplaceAll]);
   finally
     SaveToFile(Name); 
    Free; 
 end; 
end;

Saludos.

Gracias de nuevo ecfisa!!, el código reemplaza y guarda sin ningún problema.