séléction d'un composant a partir de son nom

bonjour a tous;
j'ai dans mon programme 100 images;
et je veux sauvegarder dans le disque dur une image en fonction de son nom;
donc j'utilise ceci :

Code:

---

1 2 3 4 5 6 7 8

procedure sauvegard_image(nom : string); begin if nom = 'image1' then image1.Picture.SaveToFile(nom+'.jpg'); if nom = 'image2' then image2.Picture.SaveToFile(nom+'.jpg'); ... if nom = 'image100' then image100.Picture.SaveToFile(nom+'.jpg'); end;

---

vous voyez comme c'est long!
donc ma question c'est: y a il une autre méthode pour faire cela
du genre :

Code:

---

1 2 3 4 5

procedure sauvegard_image(nom : string); begin component(nom).Picture.SaveToFile(nom+'.jpg'); end;

---

donc ce que je veux faire c'est sauvegarder l'image directement a partir de son (non = variable string) et sans passer par le test if (100 fois)

La méthode FindComponent(nom du composant) semble tout indiqué

Basiquement, dans ton exemple :

Code:

---

1 2 3 4 5 6 7 8 9

var c : TComponent; begin c := Form.FindComponent(nom);   if(c <> nil) and (C is TBitmap)then TBitmap(nom).Picture.SaveToFile(nom+'.jpg'); end;

---