Discussion :

[anapurna]

salut

oui et non parcque dans ton cas tu annule toutes les action specifique au tedit autre que celles non voulu

le inherited et la pour une bonne raison

@+ Phil

[Rayek]

salut

oui et non parcque dans ton cas tu annule toutes les action specifique au tedit autre que celles non voulu

le inherited et la pour une bonne raison

@+ Phil

Lesquels, car je n'ai jamais rencontré de problème particulier quand me mets mon code dans un TEdit.

[DragonHeart]

J'utilise le meme code que Malatar pas eu de soucis non plus
les directives {$HINTS OFF} / {$HINTS ON} bien utile je ne connaissait pas ^^

[e-ric]

Bonjour,

A ShaiLeTroll : dans ton code de 15h51 que re-voiçi, ça fait quoi le {$HINTS OFF} et le {$HINTS ON} ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
{$HINTS OFF}
  function IsNumeric(Str: String): Boolean;
  var
     Code: Integer;
     V: Integer;
  begin
       Val(Str, V, Code);
       Result := Code = 0;
  end;
  {$HINTS ON}

A+

Cela évite l'affichage d'un conseil lors de la compilation, à utiliser de manière pertinente et modérée. F1 pour les détails.


Du même tonneau, il existe $WARNING ON/OFF (ou $WARNINGS je ne souviens plus trop et je n'ai pas Dephi sous la patte)
cdlt

[anapurna]

salut


euh mala je vient de verifier pour un tedit tout bete ca change rien.
par contre pour les tdbedit ou tcombolist
ou tstringgrid ou autre elements d'edition tu risque d'avoir des soucis si tu ne le fait pas

par defaut je l'ai toujours mis .

@+ Phil

[Rayek]

salut


euh mala je vient de verifier pour un tedit tout bete ca change rien.
par contre pour les tdbedit ou tcombolist
ou tstringgrid ou autre elements d'edition tu risque d'avoir des soucis si tu ne le fait pas

par defaut je l'ai toujours mis .

@+ Phil

En général sur un TDbEdit tu n'en as pas besoin si le champ et bien définit en numérique.
Le reste je n'ai pas testé ^^

[anapurna]

salut

tiens tu m'interesse
comme tu gere les erreur dans ce cas la dans le onchange du datasource ?
dans le dataset ?
dans le gettext du champs concerné ?

@+ Phil

[ShaiLeTroll]

elle est vachement compliqué ta fonction keypress

je ne dirais pas le contraire, mais c'est par celle qu'elle permet le copier coller via Ctrl+C et Ctrl+V ce qui ne fonctionne plus avec "['0'..'9',#8,#13]" et donc si tu ouvre la possiblité d'un copier coller, il y aura donc plein de caractère succeptible de ne pas être numérique, donc un test complet de la valeur s'impose, et encore il y a des failles ...

enfin, pour ceux qui aime les directives de compilation ^_^, ben quoi de plus stressant de construire complètement son application et d'avoir les erreurs comises par d'autres développeurs genre qui laisse de variables inutiles, des results non affecté, oublis les override sur le constructeur, ... et j'en passe ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  {$IFDEF NOVCL}
  CCAM_Serveur_NOVCL_TLB,
  {$ELSE}
  CCAM_Serveur_TLB,
  {$ENDIF}
  Db, DBClient2, MKClientDB, MemData,
  SchDataset, DBClient,
  {$WARNINGS OFF}{$HINTS OFF}
  {$IFDEF SIP}
  SipBoxObj_TLB, SIPMessage,
  {$ELSE}
    {$IFDEF NOVCL}
    BltBoxObj_novcl_TLB,
    {$ELSE}
    BltBoxObj_TLB,
    {$ENDIF}
    BLTMessage,
  {$ENDIF}
  {$WARNINGS ON}{$HINTS ON}
  {$IFDEF  D6UP} Variants, DateUtils, {$ENDIF}
  MKClientdynamic;

et dans le code j'ai parfois cela qui traine

Code :

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

1
2
3
4
5
{$IFDEF D6UP}
k := StrToIntDef(WorkList.ValueFromIndex[i], -1);
{$ELSE}
k := StrToIntDef(WorkList.Values[WorkList.Names[i]], -1);
{$ENDIF}

et il peut y avoir les variantes de Delphi 3 à Delphi 7 ... autant à chaque utilisé la méthode la plus performante que propose Delphi à chaque release comme l'unité Variants ou à l'inverse supprimer les deprecated

Code :

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

{$IFDEF D6UP}RaiseLastOSError;{$ELSE }RaiseLastWin32Error; {$ENDIF}

tient d'ailleurs, le inc donne ça ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
{$IFDEF VER120}
  {$DEFINE D4}
  {$DEFINE D4UP}
{$ENDIF}
{$IFDEF VER130}
  {$DEFINE D5}
  {$DEFINE D4UP}
  {$DEFINE D5UP}
{$ENDIF}
{$IFDEF VER140}
  {$DEFINE D6}
  {$DEFINE D4UP}
  {$DEFINE D5UP}
  {$DEFINE D6UP}
{$ENDIF}
{$IFDEF VER150}
  {$DEFINE D7}
  {$DEFINE D4UP}
  {$DEFINE D5UP}
  {$DEFINE D6UP}
  {$DEFINE D7UP}
{$ENDIF}
{$IFDEF VER170}
  {$DEFINE D2005}
  {$DEFINE D4UP}
  {$DEFINE D5UP}
  {$DEFINE D6UP}
  {$DEFINE D7UP}
  {$DEFINE D2005UP}
{$ENDIF}
{$IFDEF VER180}
  {$DEFINE D2006}
  {$DEFINE D4UP}
  {$DEFINE D5UP}
  {$DEFINE D6UP}
  {$DEFINE D7UP}
  {$DEFINE D2005}
  {$DEFINE D2006UP}
{$ENDIF}

[Rayek]

salut

tiens tu m'interesse
comme tu gere les erreur dans ce cas la dans le onchange du datasource ?
dans le dataset ?
dans le gettext du champs concerné ?

@+ Phil

Je n'ai pas compris ce que tu veux ^^

Normalement si le DbEdit est connecté à un champ numérique, en édition ou insertion, tu auras beau tapper des caractères alphabétiques, ca ne fonctionnera pas (je ne sais plus s'il y a un son ou pas d'erreur).
La seul chose que je rajoute sur un DbEdit pour la saisie d'un champ de type float, sur le onKeyPress c'est

Code :

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

1
2
 
if Key in ['.',','] then Key := DecimalSeparator;

Le reste se fait tout seul

[Shredder]

moi je fais toujours comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function isnumber(s: string): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 1 to Length(s) do
    case s[i] of
      '0'..'9':;
      else
        Exit;
    end;
    if s<>'' then
  Result := True;
end;

[charlie_movietone]

Voici la fonction que j'utilise depuis des années, elle me donne toute satisfaction dans tous les cas de figure. Si ça peut aider...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
function EstUnNombre(Chaine : string; Debut, Fin : integer) : Boolean;
var
  Index : integer;
begin
 if (Length(Chaine) = 0) or (Debut > Length(Chaine)) then
    begin
      Result := false;
      exit;
    end
  else
  if Fin<Debut then
    Fin := Length(Chaine);
  if Fin>Length(Chaine) then
    Fin := Length(Chaine);
  for Index:=Debut to Fin do
    if not (Chaine[Index] in ['0'..'9']) then
      begin
        Result := false;
        exit;
      end;
  Result := true;
end;

[anapurna]

salut

allez une derniere solution pour la route
on laisse le system gerer tout seul

si on le met pas dans le createparams du composant
creer pour la saisi des nombre

Code :

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

1
2
3
inherited CreateParams(Params);
Params.Style := Params.Style or ES_RIGTH
 or ES_NUMBER;

alors le mettre dans le formcreate de cette facon

Code :

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

1
2
3
 defstyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
  SetWindowLong(Edit1.Handle, GWL_STYLE, defstyle 
     or ES_NUMBER)

PS : Attention cette methode n'est valable que pour les chiffre sans virgule

@+ Phil