关于odbc的问题

Question

连接一下不就得了，链不上 halt;

Answer 1

var
ff:tstringlist;
ss:tregistry;
i:integer;
st:string;
bool:boolean;
begin
bool:=false;
st:='odbc1';代表你要查的odbc数据源 
ff:=tstringlist.Create;
ss:=tregistry.Create;
ss.RootKey:=HKEY_CURRENT_USER;
ss.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',false);
ss.GetValueNames(ff);
for i:=0 to ff.count-1 do
begin
  if ff.strings[i]=st then
     begin
       bool:=true;
       break;
     end;
end;
  if bool=false then
    showmessage('对不起数据源不存在');
end;