var slr: TStringList;
? F:TFileStream;
? S:WideString;
? i: integer;
const
? FileName='TalkList.txt';
begin
? F:=TFileStream.Create(FileName,fmOpenRead);
? I:=F.Size;
? SetLength(S, I div 2);
? F.Read(S[1],I);
? F.Free;
? Delete(S,1,1);
? m_haoma.Text:=S;
end.

總結

以上是生活随笔為你收集整理的DELPHI 读取TXT文件unicode乱码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。