Discussion :

[Charly910]

Bonjour,

J'ai le nom d'un TEdit dans une varaible de type STring :

Exemple :

Code :

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

    NomVariable := 'Edit1' ;

Je voudrais utiliser la variable en paramétrant son nom, un peu comme ceci :

Code :

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

    NomVariable.Text := 'Blabla' ;  // au lieu de   Edit1.text := 'Blabla' ;

Je ne me souviens plus comment le faire

Quelqu'un peut il m'aider

Merci

Charly

[archonte]

Bonjour !

Peut-être dans la >>> ici

Comment trouver un composant en connaissant son nom ?
auteur : Nono40
Pour recherche la référence d'un composant en ne connaissant que son nom et son propriétaire, il faut utiliser la fonction FindComponent du propriétaire. Le résultat de cette fonction est toujours de type TComponent, il est donc utile d'en transtyper le résultat en fonction du type de composant attendu.

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
Var Edit:TEdit;
begin
  Edit:=TEdit(Form1.FindComponent('Edit1'));
  If Edit<>Nil
    Then ShowMessage(Edit.Text);
end;

Cette méthode est très utile pour modifier les propriétés d'une série de composants dont les noms peuvent être calculés en boucle. Par exemple pour effacer le contenu de Edit1.Text à Edit10.Text :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
Var Edit : TEdit;
    i : Integer;
begin
  For i:=1 To 10 Do
  Begin
    Edit:=TEdit(Form1.FindComponent('Edit'+IntToStr(i)));
    If Edit<>Nil
      Then Edit.Text:='';
  End;
end;

[edam]

Code :

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

1
2
3
 
var NomVariable:TEdit;
 NomVariable := Edit1 ;

[archonte]

Code :

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

1
2
3
 
var NomVariable:TEdit;
 NomVariable := Edit1 ;

@edam : Je pense que ce n'est pas la question posée : il s'agit de retrouver un composant (TEdit) à partir d'une chaine de caractères et non manipuler une variable représentant le TEdit.

Attendons la réponse de Charly910 !

[Charly910]

Merci à tous,

Je vais utiliser FindComponent

@+

Charly