Delphi中汉字存储在TStringList变量里面变成乱码

[taohis]

Delphi中汉字存储在TStringList变量里面，然后存为txt文件就会自动变成乱码了，提取的时候居然也是乱码，请问有啥方法可以解决的，有劳贴出样列，谢谢

我写的代码如下：
var
Listmsg : TStringList;
TempStr : string;
begin
Listmsg := TStringList.Create;

TempStr := '您好';
Listmsg.Add(TempStr);
Listmsg.SaveToFile('C:\11.txt');
end;

这句话执行后在C盘产生的11.txt文件打开之后显示的不是“您好”而是一个特殊符号了，请问这个该如何解决呢，谢谢赐教！

[日立奔腾浪潮微软松下联想]

你用什么查看的11.txt？可能只是显示的问题。

[lyhoo163]

此问题，从未遇到。从代码看，不会出现此问题的。 原始代码是这样吗？

[taohis]

是的呢，原始代码就是那个汉字部分改了一下呢，我就是将记录保存成文件然后供人家提取呢，就是这个汉字总是乱码了

[taohis]

var FileName :string; // 用来存储费用明细的文件名 ListMX :TStringList; begin ListMX:=TStringList.Create; TableMX.First; while not TableMX.Eof do begin // 参数原则：医院项目编码|规格|单位| // 单价|数量|包装数量|总金额|自付比例| TempStr:=''; TempStr:=TableMX.FieldByName('XMBH').AsString+'|'+ TableMX.FieldByName('GG').AsString+'|'+ TableMX.FieldByName('XMDW').AsString+'|'+ // 注：单位部分，都是汉字方式的 TableMX.FieldByName('XMSJ').AsString+'|'+ FormatFloat('0.00',TableMX.FieldByName('XMSL').AsFloat)+'|'+ '1|'+ FormatFloat('0.00',TableMX.FieldByName('XMJE').AsFloat)+'|'+ TableMX.FieldByName('YBBL').AsString+'|'; ShowMessage(TempStr); ListMX.Add(TempStr); TableMX.Next; end; //将明细信息保存成文件方式 FileName:='C:\yblog\MX.txt'; DeleteFile(FileName); ListMX.SaveToFile(FileName); ListMX.Free; end; 以上是原始代码，showmessage部分显示的那个单位是正常的，可是只要添加到List里面再保存成文件单位就成乱码了，其他的都没问题

[taohis]

我给简化了版本如下，也是一样汉字部分乱码了： var ListMsg :TStringList; TempStr :string; begin ListMsg:=TStringList.Create; TempStr:='479||支|002|002|0.39|1.00|1|0.39|0|'; ListMsg.Add(TempStr); TempStr:='582||支|002|002|0.25|1.00|1|0.25|0|'; ListMsg.Add(TempStr); ListMsg.SaveToFile('C:\11.txt'); ListMsg.Free; end;

[doloopcn]

用记事本打开文件，然后在“另存为”菜单中，看右下角显示的编码是什么，一般来说应该是ANSI，如果不是，你的DELPHI的默认内码有问题或者是你系统的默认内码有问题

[xiaoyongxiao]

你的操作系统是64位的，你的DELPHI编译出来的程序是32位的，

[道玄希言]

你用的是delphi的哪个版本? 2010 或以后版本么? 如果是 2010 之前的版本, 可用 TNT 那套控件, 里面有个TTntStringList 的试试.

[yuetianbao]

你再做一个正常txt文件，Load一下然后在程序里显不看正常不，如果也不正常就说明Delphi字符设置问题。

[日立奔腾浪潮微软松下联想]

保存时指出字符编码： Listmsg.SaveToFile('C:\11.txt', TEncoding.Unicode); 即可。

[victor_yang]

var FileName :string; // 用来存储费用明细的文件名 ListMX :TStrings; //关键是改这里！！！！！ begin ListMX:=TStringList.Create; TableMX.First; while not TableMX.Eof do begin // 参数原则：医院项目编码|规格|单位| // 单价|数量|包装数量|总金额|自付比例| TempStr:=''; TempStr:=TableMX.FieldByName('XMBH').AsString+'|'+ TableMX.FieldByName('GG').AsString+'|'+ TableMX.FieldByName('XMDW').AsString+'|'+ // 注：单位部分，都是汉字方式的 TableMX.FieldByName('XMSJ').AsString+'|'+ FormatFloat('0.00',TableMX.FieldByName('XMSL').AsFloat)+'|'+ '1|'+ FormatFloat('0.00',TableMX.FieldByName('XMJE').AsFloat)+'|'+ TableMX.FieldByName('YBBL').AsString+'|'; ShowMessage(TempStr); ListMX.Add(TempStr); TableMX.Next; end; //将明细信息保存成文件方式 FileName:='C:\yblog\MX.txt'; DeleteFile(FileName); ListMX.SaveToFile(FileName); ListMX.Free; end;