Discussion :

[rasta girl]

Désolée pour l'intitulé mais c'est le plus clair que j'ai trouvé... Voilà en fait suivant l'état du programme je voudrais qu'il y a ait le même traitement d'une fonction mais sur des composants différents. Je m'explique, j'ai deux TEdit, EditInitial et EditModifie.
Au lieu de réecrire la même fonction avec EditInitial et EditModifie. Je voudrais pouvoir émettre une condition et selon cette condition utiliser le Tedit approprié.
Dois-je utiliser findComponent ou faire un tableau de deux TEdit ou y a t il un moyen plus propre ?
J'espère avoir été assez claire.

[Eric Sigoillot]

Bonjour,

S'il s'agit d'un évènement, tu peux affecter la même procédure aux deux composants dans l'EDI.
Sinon, rien ne t'empêche de faire une procédure générique prenant un objet TEdit en paramètre. Ensuite, il te suffit d'appeler cette procédure avec les deux objets en paramètre.

Code :

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

1
2
3
4
5
6
7
8
9
procedure SetEditText(AEdit: TEdit);
begin
  AEdit.Text := 'Test';
end;
 
...
 
SetEditText(Edit1);
SetEditText(Edit2);

@++

[rasta girl]

ok... merci c'est pourtant simple et moi je me complique la vie, la deuxième solution me va très bien

[Eric Sigoillot]

Il est inutile de passer par un paramètre de type TObject et effecteur des transtypages... Un paramètre TEdit est bien plus simple et clair quand on sait quel type d'objet doit être géré par la procédure.
C'est prendre des risques inutiles non détectables à la compilation.

@++

[anapurna]

salut

ce n'etait qu'un exemple qui permet de generaliser
la posibilite de pouvoir travailler sur n'importe qu'elle composant le type n'etant que tres peut important

Mais tu as raison si le type est bien defini autant ne pas passer par l'ancetre

@+ Phil

[rasta girl]

Merci pour toutes ces réponses. Cela dit j'ai eu un autre problème j'ai déclaré un Tshape dans une autre unité et dans mon unité actuelle j'ai une procédure OnMouseMove dans laquelle je recherche le un TShape en particulier en fonction du nom. Mais le nom n'est pas reconnu. Voici un bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TEcriture.OnMouseMoveShape(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
   if (Sender as TShape).Name = 'my_ShapeCHG' Then
   begin
      TMDIChild(MainForm.ActiveMDIChild).SetCursor(crSizeNWSE);
   end;
end;

Je crois que c'est parce que my_ShapeCHG est déclaré dans une unité différente faut-il que je précède le nom de quelque chose ?
Suis-je claire ?

[anapurna]

salut

tu peut utilisé un "sender" dans ta fonction afin de connaitre l'appelant

je m'explique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Procedure FaitUntruc(sender : Tobject);
begin
  if (Sender as TEDIT).name = 'EditInitial' Then 
     (Sender as TEDIT).Color := ClRed
 else 
   (Sender as TEDIT).Color := ClBlue;
end;
 
...
  Faituntruc(EditInitial);
...
 Faituntruc(EditModifie);
...

@+ Phil