急，为什么显示乱码？

foxyu0117

Procedure Tform2.Formcreate(Sender: Tobject);
var
  TF:TextFile;
Begin
  if DirectoryExists('D:\Foxyu')=False then
    CreateDir('D:\Foxyu');
  if DirectoryExists('D:\Foxyu\Chinese')=False then
    CreateDir('D:\Foxyu\Chinese');
  if FileExists('D:\Foxyu\Chinese\ALL_A.txt')=False then
    FileCreate('D:\Foxyu\Chinese\ALL_A.txt');
  if FileExists('D:\Foxyu\Chinese\ALL_P.txt')=False then
    FileCreate('D:\Foxyu\Chinese\ALL_P.txt');
  Form2.Combobox1.Items.LoadFromFile('D:\Foxyu\Chinese\ALL_A.txt');
  Form2.Combobox2.Items.LoadFromFile('D:\Foxyu\Chinese\ALL_P.txt');
End;                                                        

chenyuchih

應該是txt內中文的編碼問題吧........那兩個txt檔案是ANSI編碼嗎？

把它們另存新檔，編碼格式選"UTF8"應該就可以了吧.....

bugxiong

恩，要不就改TXT文档的内码，要不就用代码转ansitoutf8

wylton

为什么要改？直接判断是什么编码。

foxyu0117

chenyuchih:應該是txt內中文的編碼問題吧........那兩個txt檔案是ANSI編碼嗎？

把它們另存新檔，編碼格式選"UTF8"應該就可以了吧..... (2012-06-29 20:52) 

编码格式怎么改？
我是直接用程序创建的两个txt文件。

foxyu0117

bugxiong:恩，要不就改TXT文档的内码，要不就用代码转ansitoutf8 (2012-06-29 21:57) 

我在原来语句上加上
Form2.Combobox1.Items.LoadFromFile('D:\\Foxyu\\Chinese\\ALL_A.txt');
Form2.Combobox1.Items.Text := UTF8Encode(Form2.Combobox1.Items.Text);