Lazarus: TStringList.LoadFromFile error cuando la ruta tiene eñes/acentos

[[nlsgarcia]]

euMesmo,

Empezado por euMesmo

...el código que se plantea carga el archivo mediante un "OpenDialog", yo lo hago directamente llamando al archivo ya que sé su ubicación mediante un "loadfromfile(ruta)"...

Revisa este código:

Código Delphi [-]
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  FileStrList : TStringList;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
   Label1.Caption := EmptyStr;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   S : String;
   FileName : String;

begin

   FileName := 'FileTest-áéíóúäëïöüñ ÁÉÍÓÚÄËÏÖÜÑ.txt';

   FileStrList := TStringList.Create;

   S := ExtractFilePath(AnsiToUtf8(Application.Exename)) + FileName;

   Label1.Caption := S;

   FileStrList.LoadFromFile(Utf8ToAnsi(S));

   Memo1.Lines.Text := AnsiToUtf8(FileStrList.Text);

end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  FileStrList.Free;
  CloseAction := cafree;
end;

end.

El código anterior en Lazarus Versión #:1.2.6 FPC Version 2.6.4 bajo Windows 7 Professional x32 es una variación del código del Msg #9, el cual permite visualizar archivos de texto que contengan caracteres acentuados o con ñ tanto en su ruta, nombre o contenido en cualquier combinación, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.