Escribir la letra ñ en un fichero

[magm2000]

Hola:
Estoy intentando escribir la letra ñ en un archivo y en lugar de ello me imprime ±. Necesito escribir cadenas de caracteres en un fichero de texto y éstas pueden contener la letra ñ.
Un saludo.

[delphi.com.ar]

¿Cómo lo estas escibiendo y leyendo?

[magm2000]

Hola Federico:
Hago lo siguiente para escribir:

assignfile(fic, 'nombrecualquiera.txt');
rewrite(fic);
writeln(fic, 'Message ID,'+ wmessageid.text);

En wmessageid el usuario ha podido escribir cualquier cadena de texto que incluya la ñ.

He descubierto que la 'ñ' si esta en el fichero generado, lo que pasa es que dependiendo del programa que utilice para leer el fichero lee una 'ñ' u otro carácter.

Salu2.

[delphi.com.ar]

Te comento que TU codigo escribe y lee lo mismo del archivo:

procedure TForm1.btnSaveClick(Sender: TObject);
var
F: TextFile;
begin
AssignFile(F, 'C:\PRUEBA.TXT');
ReWrite(F);
WriteLn(F, Edit1.Text);
CloseFile(F);
end;

procedure TForm1.btnLoadClick(Sender: TObject);
var
F: TextFile;
S: string;
begin
AssignFile(F, 'C:\PRUEBA.TXT');
Reset(F);
Readln(F, S);
Edit2.Text := S;
CloseFile(F);
end;


¿Necesitas leer el archivo con un programa externo?

[delphi.com.ar]

Me olvidé un detalle, si quieres guardarlo como texto OEM, te recomiendo utilizar la función CharToOem para convertir el texto.

Saludos!

[magm2000]

Hola Federico:
El texto que escribo no lo voy a leer desde Delphi, sino con otros programas externos.
Un saludo.

[delphi.com.ar]

Ok.. si son programas desarrollados en Windows, casi seguro que los van a leer sin problemas, sinó tienes que usar CharToOem, pero ahí no vas a poder verlo correctamente desde aplicaciones como el Block de Notas.

Saludos!