AddressToIP TJvIpAdress

[CReber]

Der Vollständigkeit halber poste ich mal wie ich es jetzt gemacht habe ... Vlt. kann man das ja mal gebrauchen!

Delphi-Quellcode:

var Class1,Class2,Class3,Class4     : Byte;
    Class5,Class6,Class7,Class8     : Byte;
    a,b,d,d                         : Byte;
begin

        if eIPEnd.Address > eIPStart.Address then begin
          with eIPStart.AddressValues do begin
            Class1:=Value1;
            Class2:=Value2;
            Class3:=Value3;
            Class4:=Value4;
          end;
          with eIPEnd.AddressValues do begin
            Class5:=Value1;
            Class6:=Value2;
            Class7:=Value3;
            Class8:=Value4;
          end;
          lvComputer.Items.BeginUpdate;
          for a:=Class1 to Class5 do
            for b:=Class2 to Class6 do
              for c:=Class3 to Class7 do
                for d:=Class4 to Class8 do
                  with lvComputer.Items.Add do
                    Caption:=IntToStr(a) + '.' + IntToStr(b) + '.' + IntToStr(c) + '.' + IntToStr(d);;
          lvComputer.Items.EndUpdate;
end;