Ergebnisse einer For-Schleife in einer Liste darstellen.

[DeddyH]

Versuch es mal so (ungetestet):

Delphi-Quellcode:

procedure Wuppdi(const str: TStrings);
...
begin
  str.Items.BeginUpdate;
  try
    str.Clear;
    WMI:=CreateOleObject('WbemScripting.SWbemLocator');
    wmiService := wmi.ConnectServer('.', 'root\wmi');
    nicstatus := wmiService.InstancesOf('MSNdis_MediaConnectStatus');
    p := nicstatus._NewEnum;
    p.QueryInterface(IEnumVariant, Enum);
    hilf := 0;
    i := nicstatus.Count;
    for cnt := 0 to i - 1 do
      begin
        Enum.Next(1, card, F);
        connected := card.NdisMediaConnectStatus;
        if (connected = 0) then
           begin
             Status := 'verbunden';
           end
        else
           begin
             Status := 'nicht verbunden';
           end;
        str.Items.Add(card.InstanceName + ' : ' + status);
      end;
  finally
    str.Items.EndUpdate;
  end;
end;

Für str kannst Du dann z.B. Listbox.Items angeben.