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;

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com