Discussion :

[OutOfRange]

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 ?

[tourlourou]

si je lis bien, ton code ne définit pas l'objet dont LgDecimale est une propriété

Code :

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

function TMyObject.ZoneDeSaisieVide:boolean;

devrait rétablir les choses

bonne année

[OutOfRange]

Ouh la !

si je lis bien, ton code ne définit pas l'objet dont LgDecimale est une propriété

Code :

function TMyObject.ZoneDeSaisieVide:boolean;

devrait rétablir les choses

Ou plutôt je ne définissait pas l'objet dont ZoneDeSaisieVide est la function
En effet avec

Code :

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

function TMaskFloat.ZoneDeSaisieVide:boolean;

ça marche beaucoup mieux
Des fois, on se focalise tellement sur des détails qu'on en oublie l'essentiel...
Merci tourlourou