怎么样来实现这个
我用的是listbox控件来实现
在form中添加了listbox之后在他出现的编辑代码框里输入
添加以下代码
procedure TFormSQLServerList.ListBox1Click(Sender: TObject);

function GetSQLserverList(var Alist:Tstrings):boolean;
var
 sqlserverapp:variant;
 serverlist:variant;
 i:integer;
begin
  Result:=true;
 try
  SQLserverapp:=Createoleobject('sqldmo.application');
  serverlist:=SQLserverapp.listavailableSQLservers;
 for i:=1 to serverlist.count do
  Alist.add(serverList.item(i));
  SQLserverApp:=unassigned;
  serverlist:=unassigned;
 except
  result:=false;
 end;
end;
但是编译的时候老是编译不过去
还提示这个

[ 本帖最后由 黑色稻子 于 2010-3-23 13:08 编辑 ]

沙发自己来
帮忙处理一下
困扰了好几天了