如何在ComboBox中调用自定义的函数???拜托了

Question

描述：SQL Distributed Management Objects（SQL分布式管理对象），存在于SQLDMO.dll文件中，实际上是一个COM 对象，通过调用SQL DMO的ListAvailableSQLServers方法取得。列表类型：列举装有“客户端”和“服务端”的计算机。适用条件：装有 SQL Server，且有SQLDMO.dll文件。速度：中调用示例：GetSQLServerList(ListBox1.items);代码：uses  ComObj; 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;---------------------------------请问如何在combox中调用这个函数!

Answer 1

我已把combobox1改为了ListBox1了....但是如何调用这个函数..它是返回boolean的..GetSQLServerList(ListBox1.items);这句话前面好像缺少了些什么!

Answer 2

函数返回FALSE说明出现异常，函数调用失败。
if not GetSQLServerList(ListBox1.items) then begin
  showmessage('函数调用失败');
end;