[AIDE]fonction qui entre un tableau et en resort 1...

Discussion dans 'Web, design' créé par k o D, 17 Mai 2004.

Statut de la discussion:
Fermée.
  1. Offline
    AcidBird Touriste
    Voila un exemple qui devrait fonctionner en l'adaptant un peu, c'est pas terrible car vite fait mais ca te permetra de voir tes erreurs :)

    tableau = array [1..2] of integer; //declaration du type mêmel si c'est inutile.

    procedure TForm1.Button1Click(Sender: TObject);
    var
    A : Tableau;
    begin
    A[1] := 1;
    A[2] := 3;
    Mic(a); // appel de la fonction --> passage par Adresse (cfg le var dans la déclaration ce la procédure)
    Edit1.text := IntToStr(A[1]) + ' - ' + IntToStr(A[2]); //affichage du résultat dans un object graphique (ben vi c delphi :) )
    end;

    procedure TForm1.mic(var Param: tableau); //Dans cette fonction, Param et A pointe vers la même zone mémoire. Si tu retire le var de la fonction tu verras que 1- 3 sera alors le résulats
    begin
    Param[1] := 10;
    Param[2] := 30;
    end;
    AcidBird, 25 Mai 2004
    #21
Statut de la discussion:
Fermée.