讀取Unicode Text 檔案

1. function LoadUniCodeTxt(f: string):AnsiString;
2. var
3.   ms:TMemoryStream;
4.   hs:String;
5.   ws:WideString;
6. begin
7.   Result:='';
8.   if not FileExists(f) then exit;
9.   ms:=TMemoryStream.Create;
10.   ms.LoadFromFile(f);
11.   SetLength(hs,2);
12.   ms.Read(hs[1],2);
13.   if hs<>#$FF#$FE then
14.   begin
15.     ms.Free;
16.     exit;
17.   end;
18.   SetLength(ws,(ms.Size-2) div 2);
19.   ms.Read(ws[1],ms.Size-2);
20.   SetLength(ws,ms.Size div 2-1);
21.   ms.Read(ws[1],ms.Size);
22.   Result:=AnsiString(ws);
23.   ms.Free;
24. end;
26. procedure TForm1.Button2Click(Sender: TObject);
27. var
28.   str: string;
29. begin
30.   str := LoadUniCodeTxt('UnicodeTxt.txt');
31.   Memo1.Clear;
32.   Memo1.Lines.Add(str);
33. end;