读取htm页面，修改后用SaveToFile写入，结果中文变乱码，怎么办？？

[sulemon]

tmplist := tstringlist.Create; //创建
tmplist.LoadFromFile('c:\a.htm'); //载入文本，路径自行确定 goodid :=qry.Fields[0].Value; //指定商品名
-------
//编辑tmplist
-------
tmplist.SaveToFile('c:\a.htm');
tmplist.Free;


源码如上，结果，写入后，打开这个网页，发现中文变成了乱码。

自己研究了好久，实在搞不定了，请懂的朋友指点下啊。 谢谢，谢谢。。非常非常感谢。

[sulemon]

我用的是delphi 7

[我看见佛]

编码格式不对。
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('G:\ab.html');//TStringList和Memo差不多。我用Memo测试了一下。
end;
TXT文件保存成THML文件，默认为UTF-8格式，改成UNICODE也是乱码，只有ANSI格式的不是乱码。

所以最简单的是把你的HTML保存成ANSI编码格式即可。
或者可以加载进来后再进行编码转换，转换的方法我就不去试了。