Discussion :

[Nzs26]

Bonjour,

Alors je souhaite que dans ma zone de saisie l'utilisateur ne puisse entrer que des entiers. J'ai donc écrit la méthode suivante :

Code :

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

1
2
3
4
5
6
7
8
9
// NOEMIE - function de test des entiers
function T_frmData.fcTestInteger(strChaine : string; key : char) : string;
begin
 // showmessage ('strChaine' + strChaine);
  if key  in ['0' .. '9'] then
    strChaine := strChaine + key;
   // showmessage('strChaine+key ' + strChaine);
  fcTestInteger := strChaine;
end;

Que j'appel de cette manière :

Code :

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

1
2
3
4
5
procedure TfrmCtrl.zsVirgKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  self.zsVirg.Text := _frmdata.fcTestInteger(self.zsVirg.Text, key)
end;

Le première caractère alphabétique que je tente d'entrer dans ma zone de saisie et accepté et ensuite les autres non, donc si vous avez une idée d'où cela pourrait venir ?

Après l'écriture du premier caractère alphabétique dans ma zone de saisie, la fonction s'exécute correctement !

La création de cette fonction à mis de côté l'attribution de la propriété Max Length de ma zone de saisie, si vous aviez aussi une idée de l'origine de ce problème ?

Merci d'avance,

NZs

[ero-sennin]

Salut,

Pourquoi ne pas mettre directement le code dans le OnKeyPress sans utiliser de fonction ...

Ca donnerai ceci :

Code :

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

1
2
3
4
5
6
procedure TfrmCtrl.zsVirgKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not (Key in ['0'..'9',Chr(VK_DELETE),Chr(VK_BACK)]) then
    Key:=#0;
end;

A+

[philnext]

Perso j'utilise un code similaire à ero-senin mais pour des besoins plus complexes il y a le TMaskEdit...

[Nzs26]

Alors j'utilise en fonction car ce contrôle doit être effectué sur plusieurs zones de saisies dans plusieurs formulaire différents donc au niveau de l'optimisation je trouvais cela préférable.

Cependant, je vais essayer de ne pas utiliser de fonction pour observer si mon problème sera toujours présent ou non. Je vous tiens au courant ...

NZs

[Nzs26]

Alors quand je n'utile pas de fonction, mon contrôle s'exécute correctement ...

Mais vu qu je vais réutiliser plusieurs fois ce contrôle, j'ai réelement besoin de le traiter dans une fonction ...

Mais du coup je ne vois pas du tout où se situe la source du problème ?

NZs

[Nzs26]

Juste pour une culture personnelle et pour combler ma curiosité :

j'ai compris le rôle de #0 mais théoriquement, il est interprété comme :
- pas de caractère saisis
- caractère null :''
- autremement ?

[Lung]

Je dirais "caractère null", non ?
Celui dont le code ascii est 0.

[Nzs26]

Oui au fond ça me paraîtrait logique

Sinon, tu ne saurais pas pourquoi mon contrôle ne s'exécute pas de la manière manière selon qu'il se situe dans une fonction ou directement dans l'évènement ?

[ero-sennin]

Salut,

Je dirais "caractère null", non ?
Celui dont le code ascii est 0.

C'est cela oui

Alors quand je n'utile pas de fonction, mon contrôle s'exécute correctement ...

Mais vu qu je vais réutiliser plusieurs fois ce contrôle, j'ai réelement besoin de le traiter dans une fonction ...

Mais du coup je ne vois pas du tout où se situe la source du problème ?

NZs

Si tu veux vraiment utiliser une fonction, fais comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function OnlyNumber(Key:Char):char;
begin
  if not (Key in ['0'..'9',Chr(VK_DELETE),Chr(VK_BACK)]) then
    result:=#0
  else
    Result:=Key;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Key:=OnlyNumber(Key);
end;

Ca fonctionne

A+

[Nzs26]

Efectivement, ta fonction s'exécutée correctement sauf que ( il y a toujours un sauf ^^ ), les '.' été accepté donc j'ai inclus la non admission du code ASCII du 'dot' dans ma méthode.

Je laisse le code au cas où cela pourrait aider quelqu'un, même si l'optimisation est pas géniale :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function T_frmData.fcTestInteger(key : char) : char;
begin
  if not (key in ['0' .. '9', Chr(VK_DELETE), Chr(VK_BACK)]) then
    result := #0
  else
    begin
    if key = #46 then
      result := #0
    else
      result := key;
end;

En tous cas, merci beaucoup pour ta rapidité de réponse et ta grande aide

NZs

[ero-sennin]

Efectivement, ta fonction s'exécutée correctement sauf que ( il y a toujours un sauf ^^ ), les '.' été accepté donc j'ai inclus la non admission du code ASCII du 'dot' dans ma méthode.

Je ferai comme ceci plutôt :

Code :

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

1
2
3
4
5
6
7
function OnlyNumber(Key:Char):char;
begin
  if not (Key in ['0'..'9',Chr(VK_BACK)]) then
    result:=#0
  else
    Result:=Key;
end;

Le VK_DELETE correspond à la touche Sup du pavé numérique (c'était une légère erreur de ma part ... )

En tous cas, merci beaucoup pour ta rapidité de réponse et ta grande aide

NZs

Pas de soucis, c'est toujours un plaisir et bonne continuation pour la suite

[Nzs26]

J'étais arrivée à une optimisation similaire à la tienne, j'ai enlevé le contrôle ASCII pour le 'dot' et maintenant ça s'exécute correctement sans !

Donc fonction terminée et très concluante

NZs