Numéro d'un composant dans une boucle [Résolu]
- Numéro d'un composant dans une boucle
- Boucle for sur un composant possible ? (Résolu) » Forum - Visual Basic 6
- Problème de boucle avec composant SWT » Forum - Java
- Jouer un son en boucle » Codes sources - Visual Basic / VB.NET (Multimedia)
- Recuperer le label et le numero de serie d'un disque dur » Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Lire le numero de série d'un disque » Codes sources - Visual Basic / VB.NET (API)
4 réponses
Une solution serait d'utiliser FindComponent pour lister tes StringGrid :
For i:=0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[i] is TStringGrid) then
begin
TStringGrid(Form1.Components[i]).Cells[a,0] := ...
end ;
end;
Cordialement.
<hr />"L'imbécile prétentieux est celui qui se croit plus intelligent que ceux qui sont aussi bêtes que lui"/STRONG>
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 72 internautes ce mois-ci
For i:=2 to 6 do
begin
TStringGrid(FindComponent('StringGrid'+IntToStr(i))).Cells[a,0] := ...
end;
Cordialement.
<hr />"L'imbécile prétentieux est celui qui se croit plus intelligent que ceux qui sont aussi bêtes que lui"/STRONG>
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 72 internautes ce mois-ci
si tu dois faire des acces frequent, une autre solution plus efficace qu'une recherche serrait d'avoir un tableau de TStringGrid.
genre
MesStringGrid : array[0..6] of TStringGrid;
et soit tu les crée dynamiquement (fait des recherch sur la création de composant dynamique),
soit tu init le tableau dans le form create (le plus simple pour toi je supose).
MesStringGrid[0] := StringGrid0;
MesStringGrid[1] := StringGrid1;
...
ensuite, c'est un tableau normal:
for i:=low(MesStringGrid ) to high(MesStringGrid ) do begin
MesStringGrid[i].Xxx
end;
en esperant t'avoir aider,
Loda
PS: au cas ou cela ne serrait pas clair pour toi, tu n'as pas besoin de detruire le tableau dans le form destroy.
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 72 internautes ce mois-ci
Grâce à vos explications j'ai pu trouver un compromis en alliant vos solutions. Le résultat est donc :
var
MesStringGrid : array[1..26] of TStringGrid;
et dans Form.Create :
For i:=1 to 26 do
begin
MesStringGrid[i] := TStringGrid(FindComponent('StringGrid'+IntToStr(i)));
end;
Comme celà j'évite beaucoup de ligne !!!
Merci beaucoup ! C'est génial. Merci encore de m'avoir répondu !
A+
PS (Loda) : cela était très clair pour moi. Tu n'as pas besoin de me réexpliquer
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 72 internautes ce mois-ci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.