delphi保文本文件怎么选择编码UTF-8格式1
发布网友
发布时间:2024-03-01 09:19
我来回答
共1个回答
热心网友
时间:2024-10-27 17:25
如果是 delphi 高版本,比如 delphi xe 及以上,对 utf8 支持比较广泛,这时,直接就可以保存为 utf8,而低版本的 delphi,可以尝试以下功能函数代码:
procere 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;