用 Memo 读取 UniCode 编码的文本文件 - 回复 "ahgan" 的问题

问题来源: http://www.cnblogs.com/del/archive/2008/05/29/1005631.html#1212654

---

首先, 这个问题到 Delphi 2008 时, 可能就不存在了, 因为那时的 TStrings 肯定支持 UniCode; 当前版本是 2007.

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)

    Memo1: TMemo;

    procedure FormCreate(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

var

  Stream: TMemoryStream;

  pwc: PWideChar;

begin

  Stream := TMemoryStream.Create;

  Stream.LoadFromFile('c:\temp\UniCode.txt');

  pwc := Stream.Memory;

  //Inc(pwc);  {可能开始字节有个乱码, 这样可以去掉}

  Memo1.Lines.Text := pwc;

  Stream.Free;

end;



end.


 
   

做成函数的形式:

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Memo1: TMemo;

    procedure FormCreate(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



//打开 UniCode 格式的文本文件的函数:

function LoadUniCodeTxt(f: string): AnsiString;

var

  Stream: TMemoryStream;

  p: PWideChar;

begin

  Result := '';

  if not FileExists(f) then Exit;

  Stream := TMemoryStream.Create;

  Stream.LoadFromFile(f);

  p := Stream.Memory;

  Inc(p);

  Result := p;

  Stream.Free;

end;



//调用测试:

procedure TForm1.FormCreate(Sender: TObject);

var

  str: string;

begin

  str := LoadUniCodeTxt('c:\temp\UniCode.txt');

  Memo1.Clear;

  Memo1.Lines.Add(str);

end;



end.