Discussion :

[Sancha]

Bonjour à tous !

J'ai une fiche sur laquelle j'ai beaucoup de TEdit.
Pensant me simplifier la vie, je les ai appelées Edit1, Edit2, Edit3, ...
De cette façon, je pensais que je pourrez les remplir avec une boucle for

Code :

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

1
2
3
4
for i:=0 to 22 do
begin
   Edit+IntToStr(i).Text:=i
end;

Mais, vous vous en doutez, écrit comme ça, ça ne marche pas...
Comment est-ce que je peux faire ?
Merci beaucoup !

[Cl@udius]

Salut

Question maintes fois posée.
Il faut utiliser FindComponent.
Un simple recherche sur le forum te donnera les exemples que tu attends.

@+

[Sancha]

Quelle efficacité !!

Oui, je me doute que ça doit souvent être posée comme question... Je débute en Delphi et, ce que je cherchais à faire est tellement simple en VB !

En tous cas, merci, FindComponent marche très bien !

Pour ceux que ça intéresse, voici le lien qui m'a permis de bien comprendre ce qu'il fallait faire : http://delphi.developpez.com/faq/?pa...#findcomponent

Encore merci !

[Sancha]

Tant que je vous tiens sous la main, j'ai encore une petite question toujours en rapport avec mes TEdit.

Du coup, maintenant, je voudrais écrire des choses comme :

Code :

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

1
2
3
4
if TEdit(Sender).Name in ['Edit1', 'Edit2', 'Edit3'] then
begin
   ...
end;

Mais, il me met comme erreur "Type ordinal requis."
C'est possible de faire ce que j'essaye de faire ?

Merci !

[Cl@udius]

Ah non, in nécessitant un type ordinal on ne peut pas utiliser de string.

Solution:
Travaille avec le tag du TEdit:

Code :

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

if TEdit(Sender).Tag in [1..3] then //...

@+

[Sancha]

Ah non, c'est bon, j'ai trouvé une solution.

Pour ceux que ça intéresse, je fais :

Code :

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

AnsiIndexStr(TEdit(Sender).Name, ['Edit1', 'Edit2', 'Edit3']

Si cette fonction me donne -1, c'est que je ne suis dans aucun de ces cas.


Merci quand même à vous tous !

[Cl@udius]

AnsiIndexStr, ... tiens je l'avais oublié celle-là.