Bonjour et bonne année à tou(te)s
Je peaufine un nouveau composant hérité de TMaskEdit
Le but est de faciliter la saisie d'un nombre à décimale (monétaire...)
Lorsque le compo reçoit le focus, le curseur doit se positionner complètement à gauche si la zone de saisie est vide
Il faut donc tester la propriété text
Jusqu'ici, je faisais ce test dans les procédures OnEnter et OnClic, ça marchait mais avec du code redondant
Dans le but d'optimiser, j'ai voulu rajouter une function pour ce test qui renvoie un boolean
Voici les extraits de code
Plantage à la compilation sur la ligne
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 type TLgDecimale=0..6; protected { Déclarations protégées } FLgDecimale:TLgDecimale; function ZoneDeSaisieVide:boolean; published { Déclarations publiées } property LgDecimale:TLgDecimale read FLgDecimale write FLgDecimale; end; implementation function ZoneDeSaisieVide:boolean; begin case LgDecimale of 0: result:=(text=stringofchar(' ',LgEntiere)+SymbolMonnaie); else result:=(text=stringofchar(' ',LgEntiere)+'.'+stringofchar(' ',LgDecimale)+SymbolMonnaie); end; end;
[Erreur] MaskFloat.pas(43): Identificateur non déclaré : 'LgDecimale'
Code : Sélectionner tout - Visualiser dans une fenêtre à part case LgDecimale of
Pourquoi ce plantage ?
Partager