有这样一个过程:
procedure TForm1.Button1Click(Sender: TObject);
var
  OpenPath, ConnString: string;
begin
  OpenPath := ShellTreeView.SelectedFolder.PathName;
  ConnString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                OpenPath+
                ';Extended Properties=dbase 5.0;Persist Security Info=False';
  ADOConn.Close;
  try
    ADOConn.ConnectionString := ConnString;
    ADOConn.Open;
    Companyinfo.TableName := 'cpinfo.dbf';
    Tsbb.TableName := 'tshz.dbf';
    Companyinfo.Open;
    Tsbb.Open;
    ShowMessage(’数据读取成功!‘);
  except
    ADOConn.Close;
  end;
end;
读出来的数据中文会显示乱码,
但是改成在设计期间就把ADOConnectString加进去的话,就不会出现乱码的问题!
这是什么原因呢?在线等待