Hallo,
die Einträge bekommst Du mit Items.Add in eine Listview. In Deinem Fall:
Delphi-Quellcode:
procedure TFmDBLogIn.FmButton1Click(Sender: TObject);
var DMOApp, SrvLst: Variant;
i: Integer;
aItem:TListItem;
begin
DMOApp := CreateOleObject( 'SQLDMO.Application' );
SrvLst := DMOApp.ListAvailableSQLServers;
// Variante 1
for i:=1 to SrvLst.Count do
begin
aItem:=ListView1.Items.Add;
aItem.Caption:=SrvLst.Item(i);
end; // for i
// Variante 2
for i:=1 to SrvLst.Count do
with ListView1.Items.Add do Caption:=SrvLst.Item(i);
end;
Ein Blick in die
Delphi-Hilfe hätte in diesem Fall nicht geschadet.