Ver Mensaje Individual
  #6  
Antiguo 06-05-2012
Avatar de ZayDun
ZayDun ZayDun is offline
Miembro
 
Registrado: mar 2007
Posts: 129
Reputación: 18
ZayDun Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
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.

Última edición por marcoszorrilla fecha: 06-05-2012 a las 22:43:37.
Responder Con Cita