如何正确保存UFT8的字符串
本帖最后由 fbiboss 于 2012-12-17 11:01:47 编辑 下面的函数直接保存为TXT会显示乱码,如何保存成ANSI的文本啊?

function SaveToFile(desfile: string): Boolean;
var
f: textfile;
begin
assignfile(f, desfile);
if (GetFileAttributes(pchar(desfile)) = $FFFFFFFF) then rewrite(f);
writeln(f, '漂');//
closefile(f);
end;
[解决办法]
写UTF8到文本文件，需要加头。
[解决办法]
直接Ansi就可以了，可以用TStringList或TStringStream这些类写。