Discussion :

[ovni76]

Bonjour,
J'utilise depuis longtemps Maskedit au début avec delphi 4 et depuis plusieurs années avec lazarus. Je l'utilise pour saisir des données selon un format et donc des nombres avec des décimales ou pas selon le mask pour le problème de l'emplacement de la virgule et la valeur décimale je reprend l'exemple saisie de 2--,-- j'ai écrit trois fonctions pour régler le problème. Si cela peut-être utile les voici:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
function DeuxDecimales(Entree: String): String;
var
  virgule,point:Integer;
begin
point:=Pos('.',Entree);
  if point<>0 then  // remplacement du point par une virgule
  begin
  Delete(Entree,point,1);
  Insert(',',Entree,point);
  end;
virgule:=Pos(',',Entree);
  if virgule=0 then Entree:=Entree+',00' // pas de décimale
  else if virgule=Length(Entree) then Entree:=Entree+'00'
       else if virgule=Length(Entree)-1 then Entree:=Entree+'0';
DeuxDecimales:=Entree;
end;
 
function TraitementMasque(Entree: String): String;
var
  blanc:Integer;
begin
// mise en forme résultat d'un MaskEdit numérique, suppression espace avant virgule
blanc:=Pos (' ',Entree);
  while blanc<>0 do
  begin
  Delete (Entree,blanc,1);
  blanc:=Pos(' ',Entree);
  end;
TraitementMasque:=Entree;
end;
 
function Decimales(Entree: String): String;
var
  blanc,virgule,point:Integer;
begin
// mise en forme résultat d'un MaskEdit numérique, suppression espace avant virgule
blanc:=Pos (' ',Entree);
  while blanc<>0 do
  begin
  Delete (Entree,blanc,1);
  blanc:=Pos(' ',Entree);
  end;
point:=Pos('.',Entree);
  if point<>0 then  // remplacement du point par une virgule
  begin
  Delete(Entree,point,1);
  Insert(',',Entree,point);
  end;
virgule:=Pos(',',Entree);
  if virgule=0 then Entree:=Entree+',00' // pas de décimale
  else if virgule=Length(Entree) then Entree:=Entree+'00'
       else if virgule=Length(Entree)-1 then Entree:=Entree+'0';
Decimales:=Entree;
end;

Elles me sont utiles.
A+

[Jon Shannow]

Merci Ovni76,

Juste une question, tu appelles ces fonctions dans quels évènements du TMaskEdit ?

A+
JS

[Paul TOTH]

Je pense que je vais m'en remettre aux TSPinEdit.

J'aurais préférer autre chose, mais bon...

JS

Pour ce genre de chose, je me suis créé mon propre dérivé de TEdit, il n'est pas public mais il n'est pas très difficile à écrire, et il répond à tous mes besoin:

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
 
  public
    { Déclarations publiques }
    function IsEmpty: Boolean; // vide, espace, 0 ...
    function FloatVal: Single; 
    function TimeVal: TDateTime;
    function IsFloat(var Value: Single): Boolean;
    property AsFloat: Single read GetFloat write SetFloat;
    function IsTime(var Value: TDateTime): Boolean;
    property AsTime: TDateTime read GetTime write SetTime;
    function IsError: Boolean;
    procedure SetError(Value: Boolean); // change l'apparence du composant pour indiqué une erreur de saisie
  published
    { Déclarations publiées }
    property Alignment: TAlignment read FAlignment write SetAlignment; 
    property InputType: TInputType read FInputType write SetInputType; // (itText, itNumeric, itTime)
    property Decimal: Char read FDecimal write SetDecimal;
    property Precision: Integer read FPrecision write FPrecision;
    property Required: Boolean read FRequired write FRequired; // associé à un dérivé de TButton qui s'assure que tous les champs requis sont renseignés, sinon Button.ModalResult est ignoré et SetError(True) est appelé
    property Numeric: Boolean read GetNumeric write SetNumeric stored false; // raccourci pour itNumeric
    property Text write SetText; // efface l'erreur éventuelle

tu passes, disons 2 jours à peaufiner le composant et ensuite tu l'utilises partout avec un gain de temps vraiment non négligeable....et si tu as besoin d'un truc, tu l'ajoutes (OnValidate par exemple) et ce composant unique devient incontournable Et quand tu l'écris toi même tu en as une parfaite maîtrise, et il répond à 100% à ton besoin.

dans le genre j'ai aussi une virtualListBox une VirtualComboBox qui non seulement sont virtuels mais en plus propose les propriétés comme Required ci-dessus qui me font gagner un temps fou.

[ovni76]

Bonsoir JS,
J'appelle ces fonctions quand je valide la saisie car dans toutes mes applications (un résultat de mon passé ou je fournissais à mon groupe de travail des applications de gestion de données où je tentais d'éviter les erreurs de saisie) donc l'utilisateur après sa saisie ou le choix dans une liste devait valider sa saisie, j'ai gardé cette habitude donc après l'action sur un bouton valider j'appelle une fonction de contrôle comme celles joint dans mon message.
A+

[Jon Shannow]

Merci Ovni76 pour ta réponse et tes conseils.

Je pense que je vais tenter de faire comme Paul TOTH l'a justement fait remarquer. Je vais me lancer dans la création d'un composant de saisie des nombres. J'espère avoir les compétences (en fait, je compte sur vous ).

Donc, je ne ferme pas ce sujet, car la suite risque d'être difficile et longue, car ce n'est pas un dev prioritaire pour moi en ce moment, ce sera par épisode.

La suite au prochain épisode...

A+
JS

[Jon Shannow]

Bon,

Voilà c'est fait. Quelques derniers réglages et puis on verra, en tout cas c'est assez fonctionnel pour un début.

Merci à vous tous

JS