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

[[nlsgarcia]]

euMesmo,

Empezado por euMesmo

...el problema no es el contenido del archivo a abrir si tiene o no palabras con acentos...El problema está en la ruta en la que se ejecuta el programa...en cuanto cambio el nombre de una carpeta por uno con acento aparece el error de "open file"...

Revisa el código y las imágenes del Msg #9, este permite visualizar archivos de texto que contengan caracteres acentuados o con ñ tanto en su contenido como en el nombre del archivo y directorio/ruta en donde residen en cualquier combinación.

Espero sea útil

Nelson.

[euMesmo]

Gracias Nelson.

Pero 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)".

[[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.