Sustituir Codigo ASCII Fichero texto

[rgstuamigo]

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'); //leemos desde el archivo
     f.Text:=StringReplace(f.Text,'ñ','n',[rfReplaceAll,rfIgnoreCase]);//reemplazo las "ñ" por "n" de todo el archivo de un saque
     f.SaveToFile('C:\MyArchivo.txt');//guardamos al mismo archivo
     ShowMessage('Se ha modificado..');
   finally
   f.Free;//Liberamos el objeto f
   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'); //leemos desde el archivo
    for  i:=0  to f.Count-1  do
     f.Strings[i]:=StringReplace(f.Strings[i],'ñ','n',[rfReplaceAll,rfIgnoreCase]);//reemplazo las "ñ" por "n" linea a linea

     f.SaveToFile('C:\MyArchivo.txt');
     ShowMessage('Se ha modificado..');
   finally
   f.Free;//Liberamos el objeto f
   end;

Ya que puede ocurrir que nuestro archivo sea demasiado grande para hacerlo todo de un golpe.
Saludos...
end;