如何从unicode格式的文本文件中读出每一行的内容?(50分)

  • 主题发起人 主题发起人 向左走向右走的童话
  • 开始时间 开始时间

向左走向右走的童话

Unregistered / Unconfirmed
GUEST, unregistred user!
如题,用fileread或者tstringlist.loadfromfile读出来后都是乱码!如何处理?
 
var
s: string;
ws: widestring;
begin
assignfile(f, ...);
read(f,s);
ws := s;
showmessage(ws);
...

其实就是两个字节,英文字符前面补#00,手工处理都可以
 
后退
顶部