Problème de procedureRésolu

Question

Voil&#224; je cr&#233;e une procedure de cette forme : 

Procedure initordi( chiffre : integer; ordi : TImage; chaine : String );
Begin
  Case chiffre Of
    0 :
      Begin
        ordi.picture.LoadFromFile( 'bille_bleue.bmp' );
        chaine := 'bille_bleue.bmp';
      End;
    1 :
      Begin
        ordi.picture.LoadFromFile( 'bille_rouge.bmp' );
        chaine := 'bille_rouge.bmp';
      End;
    2 :
      Begin
        ordi.picture.LoadFromFile( 'bille_verte.bmp' );
        chaine := 'bille_verte.bmp';
      End;
    3 :
      Begin
        ordi.picture.LoadFromFile( 'bille_jaune.bmp' );
        chaine := 'bille_jaune.bmp';
      End;
    4 :
      Begin
        ordi.picture.LoadFromFile( 'bille_blanche.bmp' );
        chaine := 'bille_blanche.bmp';
      End;
    5 :
      Begin
        ordi.picture.LoadFromFile( 'bille_rose.bmp' );
        chaine := 'bille_rose.bmp';
      End;
    6 :
      Begin
        ordi.picture.LoadFromFile( 'bille_orange.bmp' );
        chaine := 'bille_orange.bmp';
      End;
    7 :
      Begin
        ordi.picture.LoadFromFile( 'bille_violet.bmp' );
        chaine := 'bille_violet.bmp';
      End;
  End;
End;

et je l'apelle de cette mani&#232;re : 

initordi( random(8), ordi1, chaineordi1 );

Ma proc&#233;dure me renvoie bien l'image que je choisi dans ordi1 mais elle me renvoie une cha&#238;ne vide et je ne vois pas quel est mon erreur.
Si quelqu'un peut aider &#224; la trouver il serait tr&#232;s gentil.

Merci d'avance.

La puce

lapucedu88 · Accepted Answer

J'ai trouv&#233;, enfin je pense que c'est se qui provoquait l'erreur.
A la d&#233;claration de ma procedure j'ai rajouter Var devant chaine et maintenant sa marche

La puce

cs_Delphiprog · Answer

C'est tout simplement &#231;a. Sympa de poster la r&#233;ponse tout de m&#234;me.

http://www.croix-rouge.fr/index/partner_campagne.html

lapucedu88 · Answer

Merci, mais je comprend pas trop pourquoi vu que j'ai pas besoin de mettre var devant mes images alors que je les modifies aussi....

La puce

cs_Delphiprog · Answer

Les types de base (string, integer, boolean, etc) doivent &#234;tre pass&#233;s par adresse (var) si l'on veut retrouver la valeur modifi&#233;e &#224; la sortie de ta routine.
Il en va tout autrement avec des objets qui sont des r&#233;f&#233;rences (autrement dit des pointeurs masqu&#233;s). Dans leur cas, c'est en r&#233;alit&#233; l'adresse de l'objet point&#233; qui est transmis.

Rappels sur le passage d'arguments &#224; une autre routine en ce qui concerne les types de base :
1- aucune pr&#233;cision : transmission par valeur. Le compilateur cr&#233;e une copie locale sur le tas et destruction &#224; la sortie de la routine. La valeur re&#231;ue n'est donc pas modifi&#233;e puisque la routine appel&#233;e a travaill&#233; sur une copie.

2 - var : passage par adresse. La valeur modifi&#233;e sera retourn&#233;e &#224; la routine appelante avec la valeur modifi&#233;e

3 - const : passage par adresse et la routine recevant le param&#232;tre ne peut pas modifier la valeur de l'argument re&#231;u.

3 - out : passage par adresse sans contr&#244;le du type de l'argument re&#231;u. La valeur modifi&#233;e est retourn&#233;e &#224; l'appelant.

Je pense que cela t'aidera &#224; y voir plus clair maintenant.

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

lapucedu88 · Answer

Ok, je te remercie pour tes explication, c'est super cool.
Au moins ici, on a des r&#233;ponses, c'est pas comme en cours.

La puce

Problème de procedure

5 réponses

Votre réponse

Discussions similaires