威望：7
等级：大四(每天看1小时莱昂氏)
文章：217
积分：1281
门派：XML.ORG.CN
注册：2005/2/17
姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)
|
 [原创]如何保存文本文件的编码为UTF-8
如何保存文本文件的编码为UTF-8？ 在有些编辑程序中只须把文本文件的存贮格式改为UTF-8即可。(以editplus为例，document-->encoding type-->UTF-8，保存即可。windows的记事本也可以的。) 但是Delphi编写的程序中如何保存文本文件的编码为UTF-8？ 个人认为最好的一个函数。 function WriteUTF8String2File(filename: string; AnsiS: AnsiString):Boolean;
var
wf: Array[0..2] of Char;
us: UTF8String;
f: TFileStream;
begin
Result:= false;
wf[0]:=#$EF;
wf[1]:=#$BB;
wf[2]:=#$BF;
f:= TFileStream.Create(filename, fmCreate);
try
f.Write(wf, 3);
us:=AnsiToUtf8(AnsiS);
f.Write(PChar(us)^, length(us));
Result := true;
finally
f.Free;
end;
end;
|
----------------------------------------------
http://borland.mblogger.cn/scyangyu/
| 
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - 高级XML应用 → 『 SVG/GML/VRML/X3D/XAML 』 → [原创]如何保存文本文件的编码为UTF-8
(订阅本版)
2005/2/18 15:45:00
新浪微博
