Ver Mensaje Individual
  #3  
Antiguo 03-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Otra forma de reemplazar el texto buscado puede ser:
Código Delphi [-]
procedure ReplaceAndSave(const Name, Old, New: string);
begin
  with TStringList.Create do
  try
    LoadFromFile(Name);
    Text:= StringReplace(Text, Old, New, [rfReplaceAll]);
  finally
    SaveToFile(Name);
    Free;
  end;
end;

Llamada:
Código Delphi [-]
const
   FNAME = 'C:\...\TU_ARCHIVO.TXT';
...
   ReplaceAndSave(FNAME, Edit1.Text, Trim(Memo2.Text));

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita