这段代码怎么改

Question

procedure TForm1.Button1Click(Sender: TObject);
var ms:tfilestream;
buf:array [1..10]of widestring;
    n,i:integer;
begin
  richedit1.Clear;
   ms:=Tfilestream.Create('g:\111.txt',fmsharedenynone);
   for i:=0 to 3 do
     begin
        ms.Readbuffer(buf,2*i);
         ms.Seek(0,sofromcurrent);
     end;
    richedit1.Lines.LoadFromstream(ms);
end;
我想把文本文件里内容都显示在RICHEDIT上，那里的是UNICODE编码的，我现在显示只能显示一个字符，怎么改呀。

Answer 1

笨方法：把TXT文件存为ANSI格式文件。

Answer 2

就要UNICODE格式，我不知道为什么只读一个字啊

Answer 3

RichEdit1.Lines.LoadFromFile('g:\111.txt');

Answer 4

function Readini(const AIniFile, ASection, AIniParam: string): string;
var
  ini: tinifile;
begin
  ini := TInifile.Create(AIniFile);
  Result := '';
  if Ini.ReadString(ASection, AIniParam, '') <> '' then
    Result := CryptStr(ini.readstring(ASection, AIniparam, ''), '');
  Ini.Free;
end;

Answer 5

RichEdit1.Lines.LoadFromFile('g:\111.txt');