euMesmo,
Cita:
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 = class(TForm)
Button1: TButton;
Label1: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
FileStrList : TStringList;
implementation
{$R *.lfm}
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.