Discussion :

[paulfr]

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 :

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;

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.

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.

[ero-sennin]

Salut,

Avec le peu de code que tu nous fournis, je doute que l'on puisse t'aider correctement .... Un code un peu plus complet serait bien pour une meilleure compréhension.

[anapurna]

salut

quand même quelques remarques
évite de nommer en dur les composants à affecter

Code :

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

1
2
3
4
5
6
7
 
TF…Edit1Exit(Sender : Tobject) ;
var Ch : string;
begin
   Ch := (Sender as TEDIT).Text;
   ...
end;

@+ Phil