procedure TForm1.Button2Click(Sender: TObject);
var
sTmp: string;
List: TStringList;
begin
List := TStringList.Create;
//List.Clear; sTmp := '1=' + '未知';
//List.Add('啊'); {这行屏蔽,则保存的文本就会乱码,反之则不会}
List.Add(sTmp); List.SaveToFile('D:\test.txt');
List.Free;
end;
测试条件delphi7,估计是编码的问题
var
sTmp: string;
List: TStringList;
begin
List := TStringList.Create;
//List.Clear; sTmp := '1=' + '未知';
//List.Add('啊'); {这行屏蔽,则保存的文本就会乱码,反之则不会}
List.Add(sTmp); List.SaveToFile('D:\test.txt');
List.Free;
end;
测试条件delphi7,估计是编码的问题
AnsiToUtf8(sTmp);
AnsiToUtf8('啊');
DELPHI2010默认使用UTF8的万国码,,,而且DELPHI7的代码可以直接用DELPHI2010打开并编译成功.有少量的地方需要改成pwidechar
希望不要用DELPHI7,在代码中不停的转换成UTF8了...给分..
全分..