Abrir fichero de texto y reemplazar cadena

[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.