var
i:integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from emote');
ADOQuery1.Open;
for i:=0 to ADOQuery1.Recordset.RecordCount-1 do
begin
Memo1.Lines.Add(ADOQuery1['id']);
Memo1.Lines.Add(ADOQuery1['Action']);
Memo1.Lines.Add(ADOQuery1['ALL']);
if ADOQuery1['target']<>null then
begin
Memo1.Lines.Add(ADOQuery1['target']);
end;
ADOQuery1.MoveBy(1);
end;
end;
这段代码得到的中文是乱码,怎样才能正确显示中文呢?
另外:Form和Memo的字符集我都已经设成了GB2312_CHARSET
操作系统是英文版XP
i:integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from emote');
ADOQuery1.Open;
for i:=0 to ADOQuery1.Recordset.RecordCount-1 do
begin
Memo1.Lines.Add(ADOQuery1['id']);
Memo1.Lines.Add(ADOQuery1['Action']);
Memo1.Lines.Add(ADOQuery1['ALL']);
if ADOQuery1['target']<>null then
begin
Memo1.Lines.Add(ADOQuery1['target']);
end;
ADOQuery1.MoveBy(1);
end;
end;
这段代码得到的中文是乱码,怎样才能正确显示中文呢?
另外:Form和Memo的字符集我都已经设成了GB2312_CHARSET
操作系统是英文版XP
而且,我用BDE连接就没事