Hola, he estado buscando un metodo que me permita modificar parte de el contenido de un archivo de texto, y buscando por este foro encontre este codigo..
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var i,j: integer;
begin
with TStringList.Create do
try
LoadFromFile('c:\visitasweb.txt');
i:= 0;
while i < Count do
begin
j:= Pos('EMAIL',Uppercase(Strings[i]));
if j > 0 then
begin
Strings[i]:= Copy(Strings[i],j,MAXINT);
inc(i);
end
else
Delete(i);
end;
SaveToFile('c:\resultado.txt');
showMessage ('Listo');
finally
Free;
end;
end;
El codigo como podeis ver copia el contenido que estas buscando "EMAIL", pero como podria hacer para que en vez de copiarlo se reemplaze por el contenido que tengo en un memo? estoy utilizando delphi 6.