Commande d'aquisition

cs_Gysmo Messages postés 209 Date d'inscription lundi 11 février 2002 Statut Membre Dernière intervention 13 décembre 2002 - 15 févr. 2002 à 13:31
cs_Gysmo Messages postés 209 Date d'inscription lundi 11 février 2002 Statut Membre Dernière intervention 13 décembre 2002 - 15 févr. 2002 à 21:49
Je connai po encor toute les traductions Francais/Pascal... :sad)

-> Ouvrir Image1, Si Image1 Manquante Ouvrir Image2.

-> Ouvrir Image3, Si Image3 Manquante Ne Rien Ouvrir.

Ca donnerai koi sous Delphi ca :question)

Merci ;)

2 réponses

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
15 févr. 2002 à 21:16
Soit 2 composants Image1 et image2 sur une fiche :

//Si image1.bmp n'existe pas sur le disque
If not FileExists('image1.bmp') then
//alors charger image2 (si elle existe)
if FileExists('image2.bmp') then
Image1.Picture.LoadFromFile('image2.bmp');

//si l'image3 existe, la charger, sinon ne rien faire
If FileExists('image3.bmp') then
image2.Picture.LoadFromFile('image3.bmp');
0
cs_Gysmo Messages postés 209 Date d'inscription lundi 11 février 2002 Statut Membre Dernière intervention 13 décembre 2002
15 févr. 2002 à 21:49
Merci beaucoup. 8-)
0
Rejoignez-nous