[ecfisa]

Hola euMesmo.

Empezado por euMesmo

Bien, creo que encontré el problema.
El código funciona si quito "UTF8ToAnsi"

Gracias a todos.

¿ Es decir que el código del mensaje #5 te funciona quitando la función UTF8ToAnsi ?, entonces quedo mas perplejo que antes...

De ese modo obtengo este mensaje de error:



Sin embargo, de este modo sí funciona correctamente:

Código Delphi [-]
const
  FNAME = 'Márgen ñato.txt';

procedure TForm1.Button1Click(Sender: TObject);
var
   fichero: TStringList;
begin
  fichero:= TStringList.Create;
  try
    fichero.LoadFromFile( ExtractFilePath(Application.ExeName) + UTF8ToAnsi(FNAME) );
    Memo1.Lines.Assign( fichero ); // Acción de ejemplo
  finally
    fichero.Free;
  end;
end;

Lo que me induce a pensar que la función ExtractFilePath realiza la conversión necesaria.

Nombres que usé para la prueba:

• Ruta: c:\tmp\Cápita moño
• Archivo: Márgen ñato.txt

Saludos