Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1415 connectés 

  FORUM HardWare.fr
  Programmation

  [Delphi][C'est encore moi] Vérifier le type des données...

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Delphi][C'est encore moi] Vérifier le type des données...

n°93640
Tetedeienc​h
Head Of God
Posté le 26-01-2002 à 11:18:02  profilanswer
 

bonjour c'est encore moi !
 
J'ai un petit probleme : l'utilisateur de mon programme peut entrer des données dans des Tedit, seulement ce type de données doit etre de type integer... vu que je fais un strtoInt derrière...
 
J'ai essayé de faire un traitement d'exception sans succès :(
 
 
voila ce que j'ai fait :

Code :
  1. try
  2.         strtoint(Liaison.text);
  3. except
  4.     on EconvertError do HandleException;
  5. end;


 
Et ca marche pas :(
aussi, y a t'il un moyen plus simple pour tester le contenu des Tedits,s achant que pour cette form j'en ai 30 ...
 
Et que je dois faire un Table.Append / Table.post derrière (C un ajout d'un enregistrement).
 
voila en gros ce que j'ai comme fonction derrière :
 

Code :
  1. Form15.Clients.Append;
  2. Form15.Clients.FieldValues['NOM']:= ajouterClient.NOM.text;
  3. Form15.Clients.FieldValues['PRENOM']:=
  5. ajouterClient.PRENOM.text;
  6. Form15.Clients.FieldValues['DDN']:=Dat
  8. eToStr(ajouterClient.DDN.Date);
  9. Form15.Clients.FieldValues['DEPARTEMENT_N&#
  11. 039;]:=StrToInt(ajouterClient.DEPARTEMENT_N.text);
  14. Form15.Clients.FieldValues['LIEU_N']:=
  16. ajouterClient.LIEU_N.Text;
  17. Form15.Clients.FieldValues['ADRESSE_A'
  19. ]:=ajouterClient.ADRESSE_A.text;
  20. Form15.Clients.FieldValues['CODE_P_A']
  22. :=StrToInt(ajouterClient.CODE_P_A.text);
  23. Form15.Clients.FieldValues['VILLE_A']:
  25. =ajouterClient.VILLE_A.text;
  26. Form15.Clients.FieldValues['TELEPHON_A'
  27. ;
  28. ;]:=ajouterClient.TELEPHON_A.text;
  29. Form15.Clients.FieldValues['ADRESSE_V'
  31. ]:=ajouterClient.ADRESSE_V.text;
  32. Form15.Clients.FieldValues['CODE_P_V']
  34. :=StrToInt(ajouterClient.CODE_P_V.text);
  35. Form15.Clients.FieldValues['VILLE_V']:
  37. =ajouterClient.VILLE_V.text;
  38. Form15.Clients.FieldValues['TELEPHON_V'
  39. ;
  40. ;]:=ajouterClient.TELEPHON_V.text;
  41. Form15.Clients.FieldValues['NIVEAU']:=
  43. ajouterClient.NIVEAU.Itemindex+1;
  44. Form15.Clients.FieldValues['TYP_PLONG'
  46. ]:=ajouterClient.TYP_PLONG.text;
  47. if ajouterClient.INITIATOUI.Checked then Form15.Clients.FieldValues['INITIATEUR']:=TRUE
  48. else Form15.Clients.FieldValues['INITIATEUR'
  49. ;
  50. ;]:=FALSE;
  51. Form15.Clients.FieldValues['NUM_DIPL']
  53. :=StrToInt(ajouterClient.NUM_DIPL.text);
  54. Form15.Clients.FieldValues['DATE_OBT']
  56. :=DateToStr(ajouterClient.DATE_OBT.Date);
  57. Form15.Clients.FieldValues['NOM_CLUB']
  59. :=ajouterClient.NOM_CLUB.text;
  60. Form15.Clients.FieldValues['NUM_CLUB']
  62. :=StrToInt(ajouterClient.NUM_CLUB.text);
  63. Form15.Clients.FieldValues['D_VIS_MED'
  65. ]:=DateToSTR(ajouterClient.D_VIS_MED.Date);
  66. Form15.Clients.FieldValues['NOM_MED']:
  68. =ajouterClient.NOM_MED.text;
  69. Form15.Clients.FieldValues['GR_SANG']:
  71. =ajouterClient.GR_SANG.Items[ajouterClient.GR_SANG
  73. .ItemIndex];
  74. if ajouterClient.ALLERG_ASPOUI.Checked then Form15.Clients.FieldValues['ALLERG_ASP']:=TRUE
  75. else Form15.Clients.FieldValues['ALLERG_ASP'
  76. ;
  77. ;]:=FALSE;
  78. Form15.Clients.FieldValues['TYPE_MED']
  80. :=ajouterClient.TYPE_MED.text;
  81. Form15.Clients.FieldValues['CERTIF_MED'
  82. ;
  83. ;]:=ajouterClient.CERTIF_MED.text;
  84. Form15.Clients.FieldValues['AUTOR_PARE'
  85. ;
  86. ;]:=ajouterClient.AUTOR_PARE.text;
  87. Form15.Clients.FieldValues['COEF_CONF'
  89. ]:=StrToInt(ajouterClient.COEF_CONF.text);
  90. Form15.Clients.FieldValues['INSCR_LIC'
  92. ]:=ajouterClient.INSCR_LIC.text;
  93. Form15.Clients.FieldValues['LIAISON']:
  95. =StrToInt(ajouterClient.LIAISON.text);
  96. Form15.Clients.FieldValues['DATE_ARRIV'
  97. ;
  98. ;]:=DateToStr(ajouterClient.DATE_ARRIV.Date);
  99. Form15.Clients.FieldValues['DATE_DEPART
  100. 9;]:=DateToStr(ajouterClient.DATE_DEPART.Date);
  101. Form15.Clients.post;


 
Je sais c'est lourd mais C pas moi qui ai voulu ca, C le prof :/
 
DOnc vous traiteriez comment le type de données la dedans vous ?

 

[edtdd]--Message édité par Tetedeiench--[/edtdd]


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
mood
Publicité
Posté le 26-01-2002 à 11:18:02  profilanswer
 

n°93646
antp
Super Administrateur
Champion des excuses bidons
Posté le 26-01-2002 à 11:37:16  profilanswer
 

tu veux quoi ? empêcher de rentrer autre chose que des chiffres ?
dans le onKeyPress d'un de tes Edit tu mets:
 

Code :
  1. if not (Key in ['0'..'9']) then
  2.   Key := #0;


 
et tu raccordes tous les events "OnKeyPress" des autres Edit à l'event de celui ci (pour pas devoir bêtement copier/coller le code, autant qu'ils appellent tous la même fonction).
 
si tu veux permettre d'entre un "-" par ex tu mets:
 

Code :
  1. if not (Key in ['0'..'9', '-']) then
  2.   Key := #0;


 
si tu veux qu'on ne mette le - qu'en première position:
 

Code :
  1. var
  2.   field: TEdit;
  3. begin
  4.   if Sender is TEdit then
  5.   begin
  6.     field := Sender as TEdit;
  7.     if not (Key in ['0'..'9', char(VK_BACK), char(VK_RIGHT), char(VK_LEFT)]) then
  8.       if (key <> '-') or ((field.Text <> '') and not (field.SelLength = Length(field.Text))) then
  9.         Key := #0;
  10.   end;
  11. end;


 
y a peut-être moyen de faire plus simple...

 

[edtdd]--Message édité par antp--[/edtdd]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°93648
Tetedeienc​h
Head Of God
Posté le 26-01-2002 à 11:45:06  profilanswer
 

Pas bete le coup de ne mettre que des chiffres :)


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
n°93649
antp
Super Administrateur
Champion des excuses bidons
Posté le 26-01-2002 à 11:47:30  profilanswer
 

ha sinon pour un peu éclaircir ton code, y a le "with" :
 

Code :
  1. with Form15.Clients, ajouterClient do
  2. begin
  3.   Append;
  4.   FieldValues['NOM'] := NOM.text;
  5.   FieldValues['PRENOM'] := PRENOM.text;
  6.   FieldValues['DDN'] := DateToStr(DDN.Date);
  7.   FieldValues['DEPARTEMENT_N'] := StrToInt(DEPARTEMENT_N.text);
  8.   ...
  9. end;


 
mais faut être prudent avec ça, pcq si un des deux objets a les mêmes attributs que l'autre, il prendra peut-être le mauvais
par ex si ici ajouterClient a aussi une méthode Append, c'est celle-là qui sera prise et non celle de Form15...

 

[edtdd]--Message édité par antp--[/edtdd]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°93651
antp
Super Administrateur
Champion des excuses bidons
Posté le 26-01-2002 à 11:49:02  profilanswer
 

pour le traitement de l'exception, ce que tu peux faire:
 

Code :
  1. try
  2.   machin := StrToInt(Edit1.Text);
  3. except
  4.   ShowMessage('invalide');
  5. end;


 
ou
 

Code :
  1. try
  2.   machin := StrToInt(Edit1.Text);
  3. except
  4.   machin := 0;
  5. end;


 
ou même
 

Code :
  1. machin := StrToIntDef(Edit1.Text, 0);


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°93656
Tetedeienc​h
Head Of God
Posté le 26-01-2002 à 12:09:48  profilanswer
 

Merci pour tout antp ;)
 
Sinon, j'ai un probleme avec Inifile aussi...
 
J'ai fait ca :

Code :
  1. procedure Tform15.loadconfig;
  2. begin
  3. with TiniFile.create('base.ini') do
  4. try
  5.      unechaine := ReadString('abcd','taist','pas marche');
  6. finally
  7.         free;
  8. end;


 
et voila le fichier ini

Code :
  1. [abcd]
  2. taist="essai"


 
Et quoi que je fasse, unechaine vaut toujours pasmarche :(
 
tu as une idée ?


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
n°93661
antp
Super Administrateur
Champion des excuses bidons
Posté le 26-01-2002 à 12:25:54  profilanswer
 

il trouve peut etre pas le fichier ini...
essaie avec ca:

Code :
  1. with TiniFile.Create(ExtractFilePath(Application.ExeName) + 'base.ini') do


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°93675
Tetedeienc​h
Head Of God
Posté le 26-01-2002 à 13:29:16  profilanswer
 

antp, T un dieu, décidément, ca marche parfaitement !
 
Merci ENORMEMENT ! :)


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
n°93701
[SDF]Poire
Vive Grumly
Posté le 26-01-2002 à 15:11:09  profilanswer
 

Pour les pb des int au lieu de StrToInt fait des StrToIntDef
 :hello:
 
edit : oups j'avais pas vu que tu l'avais déjà dit Antp :D

 

[edtdd]--Message édité par [SDF]Poire--[/edtdd]


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°93723
Tetedeienc​h
Head Of God
Posté le 26-01-2002 à 16:44:25  profilanswer
 

antp a écrit a écrit :

tu veux quoi ? empêcher de rentrer autre chose que des chiffres ?
dans le onKeyPress d'un de tes Edit tu mets:
 

Code :
  1. if not (Key in ['0'..'9']) then
  2.   Key := #0;


 
et tu raccordes tous les events "OnKeyPress" des autres Edit à l'event de celui ci (pour pas devoir bêtement copier/coller le code, autant qu'ils appellent tous la même fonction).
 
si tu veux permettre d'entre un "-" par ex tu mets:
 

Code :
  1. if not (Key in ['0'..'9', '-']) then
  2.   Key := #0;


 
si tu veux qu'on ne mette le - qu'en première position:
 

Code :
  1. var
  2.   field: TEdit;
  3. begin
  4.   if Sender is TEdit then
  5.   begin
  6.     field := Sender as TEdit;
  7.     if not (Key in ['0'..'9', char(VK_BACK), char(VK_RIGHT), char(VK_LEFT)]) then
  8.       if (key <> '-') or ((field.Text <> '') and not (field.SelLength = Length(field.Text))) then
  9.         Key := #0;
  10.   end;
  11. end;


 
y a peut-être moyen de faire plus simple...  
 
 




 
Dis, ici, y a un blem de type non ?
 
Incompatible type "Word" and "char" pour la condition du if...
 
C quoi le cast adapté ici ?


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
mood
Publicité
Posté le 26-01-2002 à 16:44:25  profilanswer
 

n°93734
antp
Super Administrateur
Champion des excuses bidons
Posté le 26-01-2002 à 17:42:14  profilanswer
 

tu l'a mis dans le keydown ou keypress ?
il faut le mettre dans le keypress
le keydown donne la key sous forme d'un Word au lieu d'un Char comme le fait le keypress.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°93742
Tetedeienc​h
Head Of God
Posté le 26-01-2002 à 18:03:42  profilanswer
 

ok, C moi qui mle suis planté, en effet :)


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
n°93743
Tetedeienc​h
Head Of God
Posté le 26-01-2002 à 18:09:47  profilanswer
 

mais il reste un probleme : on ne peux plus faire de BackSpace ni de suppr...
 
C'est quoi le nom en char de ces touches ?


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
n°93762
[SDF]Poire
Vive Grumly
Posté le 26-01-2002 à 19:44:06  profilanswer
 

backspace #8


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°93765
Tetedeienc​h
Head Of God
Posté le 26-01-2002 à 19:46:56  profilanswer
 

ben vi mais euh comment je l'ajoute dans la ligne de antp ?
 
if not (Key in ['0'..'9']) then  
 Key := #0;
 
et aussi : on fait comment pour empecher un utilisateur de resizer une fenetre ( a part autosize = true)


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
n°93774
antp
Super Administrateur
Champion des excuses bidons
Posté le 26-01-2002 à 20:05:11  profilanswer
 

le back etait dans mon dernier exemple, mais j'avais oublié le delete:
 
if not (Key in ['0'..'9', char(VK_BACK), char(VK_RIGHT), char(VK_LEFT), char(VK_DELETE)])


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°93775
Tetedeienc​h
Head Of God
Posté le 26-01-2002 à 20:06:40  profilanswer
 

merci :)
 
Pour empecher le resize sans mettre le autoresize a true, c'est comment ? :)
 
(je sais je suis chiant ;) )


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
n°93776
antp
Super Administrateur
Champion des excuses bidons
Posté le 26-01-2002 à 20:06:54  profilanswer
 

pour la fenetre non redimensionnable, si tu veux garder l'icone, borderstyle = bsSingle;
si tu veux pas de l'icone, borderstyle = bsDialog;
 
(j'ai validé trop vide, c pour ca qu'y avait pas la reponse à la 2e question dans le msg precedent)

 

[edtdd]--Message édité par antp--[/edtdd]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°93784
Tetedeienc​h
Head Of God
Posté le 26-01-2002 à 20:29:55  profilanswer
 

ok, merci :)


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  [Delphi][C'est encore moi] Vérifier le type des données...

 

Sujets relatifs
[Delphi/InstallShield] On l'integre comment dans le 6 ?[Delphi] [dernière ligne droite] Détruire une form proprement...
[DElphi 6] utilisation de direct Draw...[Delphi] Fonction CreateDirectory
[Delphi 6] un composant qui ne veut pas s'installer.... ??![Borland/C++]TDBgrid et données
[DELPHI] Controle ImageDelphi et Systray
[Delphi] On peut pas acceder a une BDD avec la version perso ?[PHP]Vérifier que ma chaine est de type alphanumérique
Plus de sujets relatifs à : [Delphi][C'est encore moi] Vérifier le type des données...

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.103 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR