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

  FORUM HardWare.fr
  Programmation

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

 
 


Dernière réponse
Sujet : [Delphi][C'est encore moi] Vérifier le type des données...
Tetedeiench ok, merci :)

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
Tetedeiench ok, merci :)
antp 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]
Tetedeiench merci :)
 
Pour empecher le resize sans mettre le autoresize a true, c'est comment ? :)
 
(je sais je suis chiant ;) )
antp 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)])
Tetedeiench 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)
[SDF]Poire backspace #8
Tetedeiench 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 ?
Tetedeiench ok, C moi qui mle suis planté, en effet :)
antp 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.
Tetedeiench

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 ?

[SDF]Poire 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]
Tetedeiench antp, T un dieu, décidément, ca marche parfaitement !
 
Merci ENORMEMENT ! :)
antp il trouve peut etre pas le fichier ini...
essaie avec ca:

Code :
  1. with TiniFile.Create(ExtractFilePath(Application.ExeName) + 'base.ini') do
Tetedeiench 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 ?

antp 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);
antp 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]
Tetedeiench Pas bete le coup de ne mettre que des chiffres :)
antp 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]
Tetedeiench 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]

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)