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
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;
Plantage à la compilation sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
  case LgDecimale of
[Erreur] MaskFloat.pas(43): Identificateur non déclaré : 'LgDecimale'
Pourquoi ce plantage ?