名称带有中文等unicode字符的文件读入解决方法

wylton · 发表于 2012-7-3 23:34:21

遇到这类文件，基本utf8tosys,systoutf8是没用的。
无意中找到一种完全可用的方法，先买几个金币。到时候跟猫工换金条。
哈哈哈

靠，怎么不让俺卖钱？？

算了，就这样贴出来。
并且欢迎大家提供目录中有unicode的解决方法。

procedure TForm1.Button2Click(Sender: TObject);
var sr: TSearchRec;    s: string;
begin
  if not OpenDialog1.Execute then Exit;
  Button2.Caption := OpenDialog1.FileName;
  FindFirstUTF8(OpenDialog1.FileName, faAnyFile, sr);

  s :=(ExtractFilePath(((OpenDialog1.FileName)))) + StrPas(sr.FindData.cAlternateFileName);;
  FindCloseUTF8(sr);

  Memo1.Lines.LoadFromFile(s);
end;

utf8tosys, utf8toansi是有局限性的。

sail2000 · 发表于 2012-7-4 16:22:46

2年前lazarus论坛的讨论帖子有。。。

cngst · 发表于 2012-7-4 19:44:18

用utf8tosys没遇到问题啊，而且官方例子中用的也是utf8tosys

wylton · 发表于 2012-7-7 17:49:17

楼上的，你用这个名称建立目录看看。。

" 中文epña "

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）

名称带有中文等unicode字符的文件读入解决方法

评分