delphi保文本文件怎么选择编码UTF-8格式
答案:1 悬赏:0 手机版
解决时间 2021-04-01 03:03
- 提问者网友：轮囘Li巡影
- 2021-03-31 06:05
delphi保文本文件怎么选择编码UTF-8格式
最佳答案
- 五星知识达人网友：长青诗
- 2021-03-31 07:23
如果是 delphi 高版本，比如 delphi xe 及以上，对 utf8 支持比较广泛，这时，直接就可以保存为 utf8，而低版本的 delphi，可以尝试以下功能函数代码：
procedure SaveUTF8File(AContent:WideString; AFileName:string);
var
ffileStream: TFileStream;
futf8Bytes: AnsiString;
S: AnsiString;
begin
ffileStream := TFileStream.Create(AFileName, fmCreate);
futf8Bytes := UTF8Encode(AContent);
S := #$EF#$BB#$BF;
ffileStream.Write(S[1], Length(S));
ffileStream.Write(futf8Bytes[1], Length(futf8Bytes));
ffileStream.Free;
end;
procedure SaveUTF8File(AContent:WideString; AFileName:string);
var
ffileStream: TFileStream;
futf8Bytes: AnsiString;
S: AnsiString;
begin
ffileStream := TFileStream.Create(AFileName, fmCreate);
futf8Bytes := UTF8Encode(AContent);
S := #$EF#$BB#$BF;
ffileStream.Write(S[1], Length(S));
ffileStream.Write(futf8Bytes[1], Length(futf8Bytes));
ffileStream.Free;
end;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯