Sur une fiche je dispose de deux Tedit : Edit1 et Edit2.
A l’exécution j’entre un texte dans Edit1, puis je sélectionne Edit2, ce qui déclenche l’événement OnExit de Edit1 avec le code ci_dessous :
l’exécution de l’affectation à Ch ne se fait pas et déclenche une exception EconvertError (texte erroné = ''') bien que Edit1.Text contienne le bon texte.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 TF Edit1Exit( ) ; var Ch : string; begin // inherited; Ch := Edit1.Text; ... end;
Où est l’erreur ?
Rem : ordre de tabulation : EdTitre, Edit1, Edit2, …
La fiche est une CLASS d’une autre fiche.
Même erreur si je déclenche un événement Edit2Enter.
PS suite à une modification des fiches l'erreur provient du fait que je n'ai pas préfixé correctement les TEdit qui se retrouvent dans plusieurs fiches avec le même nom ayant la même signification.
Merci à ceux qui m'ont apporté leur concours.
Partager