请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 1905|回复: 3

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

[复制链接]

该用户从未签到

发表于 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是有局限性的。

评分

参与人数 2威望 +12 收起 理由
bugxiong + 6 Lazarus社区有你更精彩!
zwz + 6

查看全部评分

回复

使用道具 举报

该用户从未签到

发表于 2012-7-4 16:22:46 | 显示全部楼层
2年前lazarus论坛的讨论帖子有。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2012-7-4 19:44:18 | 显示全部楼层
用utf8tosys没遇到问题啊,而且官方例子中用的也是utf8tosys
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主 发表于 2012-7-7 17:49:17 | 显示全部楼层
楼上的,你用这个名称建立目录看看。。

" 中文epña "
回复 支持 反对

使用道具 举报

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

GMT+8, 2019-9-19 20:57 , Processed in 0.135462 second(s), 28 queries .

Powered by Discuz! F1.0 Build 20160930

© 2001-2019 Comsenz Inc. & Discuz! Fans

快速回复 返回顶部 返回列表