- function LoadUniCodeTxt(f: string):AnsiString;
- var
- ms:TMemoryStream;
- hs:String;
- ws:WideString;
- begin
- Result:='';
- if not FileExists(f) then exit;
- ms:=TMemoryStream.Create;
- ms.LoadFromFile(f);
- SetLength(hs,2);
- ms.Read(hs[1],2);
- if hs<>#$FF#$FE then
- begin
- ms.Free;
- exit;
- end;
- SetLength(ws,(ms.Size-2) div 2);
- ms.Read(ws[1],ms.Size-2);
- SetLength(ws,ms.Size div 2-1);
- ms.Read(ws[1],ms.Size);
- Result:=AnsiString(ws);
- ms.Free;
- end;
- procedure TForm1.Button2Click(Sender: TObject);
- var
- str: string;
- begin
- str := LoadUniCodeTxt('UnicodeTxt.txt');
- Memo1.Clear;
- Memo1.Lines.Add(str);
- end;
读取Unicode Text 文件
最新推荐文章于 2018-05-16 23:23:47 发布