variable locale et globaleRésolu

Question

bonjour à tous!

j'ai crée une procedure qui rend comme résultat un tableau dynamique "TableauCc", dans le corps de cette preocedure j'ai mis l'instruction :

procedure Algorithme1(ListeAdj:PListe;TabTraiT:Array of Integer;n:integer;Var TableauCc:Array of Integer); 
Var
....
Begin

SetLength(TableauCc,6);
.
..
...
end;
il affiche: type incompatible sur la ligne "SetLength(TableauCc,6)" comme erreur et je ne vois pas pourquoi??

ni69 · Accepted Answer

Pour effectuer un passage de paramètres dans une procédure ou une fonction, il est nécessaire de créer un type particulier.


type TDynamicIntArray = array of Integer;
 
procedure Algorithme1(ListeAdj:PListe; TabTraiT: TDynamicIntArray; n:integer; Var TableauCc: TDynamicIntArray); 
 


@+
Nico { www.ni69.info }

Samou85 · Answer

Merci beaucoup "ni69" tu avais raison, j'ai changé la déclaration comme tu me l'as indiqué et ça marche!

MERCI encore,à +

Samou85 · Answer

Je vais poser une autre question dans le meme esprit:
si maintenant je crée une autre procédure, qui fait appel à la précédente procédure c'est à dire: "procédure Algorithme1" qui a en sortit le tableau dynamique de la façon suivante:

 
procedure TForm1.Button4Click(Sender: TObject);
Var
.....
Begin
..
...
Algorithme1(ListeAdj,Indice,6,TableauCc);
ShowMessage(IntToStr((Length(TableauCc)-1)));
..
...
{traitement};
..
end;

ce qui se passe c'est que quand j'exécute ça n'affiche pas d'erreur mais une fois que ça compile ça s'arrete en mettant une erreur au niveau de la ligne "ShowMessage(IntToStr((Length(TableauCc)-1)));"
Voilà je voudrais savoir où est l'erreur??
Merci de me répondre!

Guillemouze · Answer

le declaration
type TDynamicIntArray = array of Integer;

existe deja dans l'unité Types en tant que TIntegerDynArray

cs_cantador · Answer

bonjour,

puisqu'il faut créer un tableau pourquoi ne pas le prévoir avec un paramètre :


type TDynamicIntArray = array of Integer;
 
procedure Algorithme1(ListeAdj:PListe; TabTraiT: TDynamicIntArray; n:integer;
out T:TDynamicIntArray);



cantador

Variable locale et globale

5 réponses

Votre réponse

Discussions similaires