怎么正确保存UFT8的字符串

如何正确保存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这些类写。