Discussion :

[looping]

bonjour,

je voudrais extraire le dernier numero d'une adresse IP et le transformer en entier numérique
ex: 192.10.10.142 résultat: 142

est ce qu'il existe une routine toute faite sur le net ?

merci

[windob]

Tu veux simplement extraire le denier octet de ton ip puis le convertir en string :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
function Convert(strIP:string):integer;
var
  posLastDot : integer;
begin
  posLastDot :=  LastDelimiter('.', strIP);
  Convert := StrToInt(Copy(strIP, posLastDot+1 , Length - posLastDot -1); 
end;

(J'ai pas testé le code mais ça devrait marcher)

Tu peux meme te passer de la variable posLastDot mais ça devient moins lisible.

Si c'était juste ça que tu voulais, tu aurait pu essayé de la faire toi meme sans en trouver une toute faite !

[edam]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Convert := StrToInt(Copy(strIP, posLastDot+1 , Length - posLastDot +1); 
end;