Einzelnen Beitrag anzeigen

Tod787

Registriert seit: 19. Mai 2008
99 Beiträge
 
#1

Ergebnisse einer For-Schleife in einer Liste darstellen.

  Alt 30. Mai 2008, 09:11
Moin,

habe folgendes Problemchen:

möchte gerne in einer For-Schleife entstehenden Ergebnisse in einer Liste ausgeben.
Der jetzige Code gibt nur den letzten der Werte im Panel aus. Ich hätte aber gerne eine Liste mit alles Werten.

Delphi-Quellcode:
begin
  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;
     Panel1.Caption := card.InstanceName + ' : ' + status;
  end;

 end;
[edit=SirThornberry]"diein" durch "in" ersetzt - Mfg, SirThornberry[/edit]
  Mit Zitat antworten Zitat