Mas o menos
coso que quiso decir que lo hagas asi:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
f:TStrings;
begin
f:=TStringList.Create;
try
f.LoadFromFile('C:\MyArchivo.txt'); f.Text:=StringReplace(f.Text,'ñ','n',[rfReplaceAll,rfIgnoreCase]); f.SaveToFile('C:\MyArchivo.txt'); ShowMessage('Se ha modificado..');
finally
f.Free; end;
end;
Aunque lo veo mas conveniente hacerlo asi:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
f:TStrings;
i:Integer;
begin
f:=TStringList.Create;
try
f.LoadFromFile('C:\MyArchivo.txt'); for i:=0 to f.Count-1 do
f.Strings[i]:=StringReplace(f.Strings[i],'ñ','n',[rfReplaceAll,rfIgnoreCase]);
f.SaveToFile('C:\MyArchivo.txt');
ShowMessage('Se ha modificado..');
finally
f.Free; end;
Ya que puede ocurrir que nuestro archivo sea demasiado grande para hacerlo todo de un golpe.
Saludos...
end;