Discussion :

[ramanov]

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 :

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

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 :

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

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)

[khena]

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

Basiquement, dans ton exemple :

Code :

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

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;