format d'une adresse dans un edit

salut à tous voila j'ai un probléme dans mon application  avec le edit car je l'ai utilisé comme etant un champs pour saisir des adresses reseaux et puis les ajouter à l'aide d'un bouton au memo
donc mon probléme est que je doit couper l'edit en 4 champs séparé par des points, et puis verifier que tout les champs sont pleins (different du vide) et ne doivent pas dépassé la valeur 255.

exemple: voici le format d'une adresse   192.128.100.10   ou     10.123.1.2
et pour le max c'est       255.255.255.255

merci.

siral

Salut,

Le compo TMaskEdit est fait pour ça.

salut Caribensila,

j'ai essaié avec le TmaskEdit mais j'ai pas su comment vérifier que chaque champ est plein et < à 255 

comment pourai - je vérifier que mon adresse est compléte et juste? (doit-je verifier par raport au point du mask Edit ?)
a+ et merci

siral

Pour savoir si tu as une adresse IP correcte, tu scindes ton adresse en 4 parties selon les 3 points de séparation, tu regarde si chaque partie < 256. Si erreur de découpage, alors l'adresse est fausse. Si une ou plusieurs partie > 255, alors l'adresse est fausse.
Il existe plein de fonctions de découpage en tout genre sur le site : cherche "Split" dans le moteur de recherche CS.

Cordialement, Bacterius !

hello
j'avais proposé ces liens recemment dans un post identique :
"
Pourquoi ne pas utiliser un TMaskEdit avec un mask du genre 000\.000\.000\.000;1; ?
Sinon ici http://www.torry.net/quicksearchd.php?String=ip+edit&Title=Yes une recherche sur les composants capable de faire ça.
Ou encore le MSDN http://msdn.microsoft.com/en-us/library/bb761374(VS.85).aspx !
Et pour finir : http://regex.codes-sources.com/codes/EXTRACTION-ADRESSES-IP_49619.aspx
Bonne chance"

a bientot

Tu as aussi la solution des 4 TEdit...

bonjour,

autre solution :

le masque de JulioDelphi
000\.000\.000\.000;1;

+

uses IdStack;

procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
 if not GStack.IsIP(Trim(MasKEdit1.Text)) then
   begin
     ShowMessage('adresse IP incorrecte !');
     MasKEdit1.SetFocus;
   end;
end;

cantador

salut
voila j'ai essayé les solutions que vous m'avez proposé mais helas j'ai pas pu faire marché aucune c'est parceque je suis assez debutante désolé 
svp si c'est possible de me préciser ou devrai je mettre la fonction de cantador.

aussi l'idée de mettre 4 edit  (caribensila) m'ai venu mais le probléme est qu'on saisi l'@  lors du remplissage du 1er edit j'ai pas pu verifier l'utilisation d'un numero inférieur à 255 de plus je doit le faire passer au 2éme edit automatiquement je l'ai fait on comparent paraport au point (.)

svp si c'est possible de me corriger ma solution



voila ce que j'ai fait :

//j'ai utiliser un champs adds pour la recuperation du contenu des 4 edit (  l'@ compléte  )

procedure TForm2.Edit1Change(Sender: TObject);
begin
if edit1.Text<>' ' then
begin
   if ((edit1.Text[1]<>'.')and(edit1.Text[2]='.')) then
   begin
   form2.adds.Text:=edit1.Text;
   edit2.SetFocus;
   end;

  if ((edit1.Text[1]<>'.')and (edit1.Text[2]<>'.')and(edit1.Text[3]='.')) then
   begin
   form2.adds.Text:=edit1.Text;
   edit2.SetFocus;
   end;
  if ((edit1.Text[1]<>'.')and(edit1.Text[2]<>'.')and(edit1.Text[3]<>'.')and(edit1.Text[4]='.')) then
   begin
   form2.adds.Text:=edit1.Text;
   edit2.SetFocus
   end;
end;
end;
procedure TForm2.Edit2Change(Sender: TObject);
begin
if edit2.Text<>'' then
begin
   if ((edit2.Text[1]<>'.')and(edit2.Text[2]='.')) then
   begin
   form2.adds.Text:=adds.Text+edit2.Text;
   edit3.SetFocus;
   end;

  if ((edit2.Text[1]<>'.')and (edit2.Text[2]<>'.')and(edit2.Text[3]='.')) then
   begin
   form2.adds.Text:=adds.Text+edit2.Text;
   edit3.SetFocus;
   end;
  if ((edit2.Text[1]<>'.')and(edit2.Text[2]<>'.')and(edit2.Text[3]<>'.')and(edit2.Text[4]='.')) then
   begin
   form2.adds.Text:=adds.Text+edit2.Text;
   edit3.SetFocus
   end;
end;
end;

procedure TForm2.Edit4Change(Sender: TObject);
begin
if edit4.Text<>'' then
begin
form2.adds.Text:=edit1.Text+edit2.Text+edit3.Text+edit4.Text;
end;
end;

procedure TForm2.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,'.']) then key:=#0;
end;

end.

merci d'avance.

siral

ah  pour la solution des split j'ai pas su comment l'utiliser.
mais comme méme merci


siral

ou devrai je mettre la fonction de  cantador .

procedure TForm1.MaskEdit1Exit(Sender: TObject);

sur l'évènement OnExit

cantador