ListView SQL-Server auflisten

[Gollum]

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.