cs_manu00
Messages postés93Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention25 octobre 2006
-
10 mars 2004 à 15:42
cs_manu00
Messages postés93Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention25 octobre 2006
-
14 mars 2004 à 11:04
Bonjour,
J'ai une petite question...
J'aimerai a partir d'une IP de depart et une d'arrivée
ex:
ip de depart: 213.3.4.5
ip d'arrivée: 215.4.5.7
je voudrais que cela me sorte la liste totale des IPs (sans le dernier groupe...) (A.B.C.D => A.B.C._)
C'est a dire:
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 11 mars 2004 à 15:52
Pas clair, le problème...
"ip de depart: 213.3.4.5
ip d'arrivée: 215.4.5.7"
et
"213.4.0.0
213.4.0.1"
et
"Je voudrais que cela me sorte la liste totale des IPs (sans le dernier groupe...) (A.B.C.D => A.B.C._)"
pffffffff.........
JulioDelphi
Messages postés2226Date d'inscriptiondimanche 5 octobre 2003StatutMembreDernière intervention18 novembre 201014 13 mars 2004 à 20:09
hello
bon je viens de te faire ton truc là :D
c juste une histoire de boucle (4 pour etre precis)
voila la procedure de mon bouton :
(ps : j'ai posé 1 listbox nommée "lbIPs", puis un speedbutton puis 8 edit nommés "editIP11, editIP12, editIP13, editIP14, editIP21, editIP22, editIP23, editIP24", IP11 veut dire 1ere IP morceau 1 (xxx.___.___.___))
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i1,i2,i3,i4: integer;
begin
lbIPs.clear;
Application.ProcessMessages;
for i1:=strtoint(editIP11.text) to strtoint(editIP21.text) do
begin
for i2:=strtoint(editIP12.text) to strtoint(editIP22.text) do
begin
for i3:=strtoint(editIP13.text) to strtoint(editIP23.text) do
begin
for i4:=strtoint(editIP14.text) to strtoint(editIP24.text) do
begin
lbIPs.Items.Add(IntToStr(i1)+'.'+IntToStr(i2)+'.'+IntToStr(i3)+'.'+IntToStr(i4));
end;
end;
end;
end;
application.RestoreTopMosts;
end;