Discussion :

[gravey]

Bonsoir,
Je me demandai pourquoi quand on crée un composant de manière dynamique on a pas besoin de « var » mais pour le supprimer il en faut un ??
Je m’explique :

Si j’ai

Code :

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

1
2
3
4
5
6
7
8
montype : array[0..5] of Tedit ;
 
Procedure cree(tableau :montype)
var i:integer;
Begin
for i:=0 to 5 do
    tableau[I]:=Tedit.creat(tableau[I]);
end;

la sa fonctionne

mais avec

Code :

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

1
2
3
4
5
6
Procedure sup(tableau :montype)
var i:integer;
Begin
for i:=0 to 5 do
    tableau[I].free;
end;

sa fonctionne pas

il faut

Code :

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

1
2
3
4
5
6
Procedure sup(var tableau :montype)
var i:integer;
Begin
for i:=0 to 5 do
    tableau[I].free;
end;

pour que sa fonctionne;

merci d'avance

[mick605]

Salut

Mettre var devant un parametre permet de dire que le parametre doit etre modifié par la procedure. Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure MyProc (i : integer);
begin
  inc(i);
end;
 
procedure MyProcV (var i : integer);
begin
  inc(i);
end;
 
...
 
i:=1;
MyProc(i);
ShowMessage(IntToStr(i));       //affiche 1
MyProcV(i);
ShowMessage(IntToStr(i));       //affiche 2

Donc si tu veux supprimer ton tableau, tu dois donc le modifier, donc le var est nécéssaire ^^

[popo]

Par contre essaie de faire toujours en sorte que la procédure qui créé un objet se charge elle même de sa libération.

Ca évite pas mal d'erreur !

[gravey]

oui je c que var permet de de dire que le paramètre doit être modifier. Mais je je veux pas supprimer mon tableau juste les éléments à l'intérieur et quand je les crées je le modifie mais le var n'est pas nécessaire

je peut pas faire la libération dans la même procédure que la création car je crée des Tedit et c'est quand on appuis sur entrer du dernière Tedit qu'une action se produit puis la libération des TEdit

[guillemouze]

Code :

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

1
2
3
4
5
6
7
8
montype : array[0..5] of Tedit ;
 
Procedure cree(tableau :montype)
var i:integer;
Begin
for i:=0 to 5 do
    tableau[I]:=Tedit.creat(tableau[I]);
end;

apres l'appel de ta procedure, tableau est inchangé (il contient la meme chose qu'avant l'appel), car il n'est pas var

Code :

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

1
2
3
4
5
6
Procedure sup(tableau :montype)
var i:integer;
Begin
for i:=0 to 5 do
    tableau[I].free;
end;

Code :

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

1
2
3
4
5
6
Procedure sup(var tableau :montype)
var i:integer;
Begin
for i:=0 to 5 do
    tableau[I].free;
end;

Si tu as mis en var le tableau dans "creer", alors ton tableau est correcte, et les 2 procedures fonctionnent. En effet, tu ne modifie pas les valeurs contenues dans ton tableau a l'interieur de ta procedure sup (un free ne modifie pas le pointeur). par contre, si tu fais un freeAndNil, il faut que tableau soit en var dans sup pour que les pointeurs qu'il contient puissent etre reinitialisés.
En tout cas, il n'y a aucune raison pour que l'un des 2 sup marche et pas l'autre !

[ShaiLeTroll]

C'est horrible !!!

Code :

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

tableau[I]:=Tedit.create(tableau[I]);

Que contient Tableau[I] avant l'affectation ?
0 si tu as fait un ZeroMemroy mais sinon, une déclaration en variable locale à de grand risque de fournir un tableau avec un contenu aléatoire en fonction du contenu de la mémoire !
Si c'est un membre d'un objet, le tableau est initializé à zéro !
C'est TRES risqué !

Code :

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

tableau[I]:=Tedit.create(nil);

ou

Code :

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

tableau[I]:=Tedit.create(self);

dans la seconde forme, self se changera de la libération, même pas besoin de faire les Free explicite !

[Andnotor]

Dans les deux cas, var est obligatoire pour modifier un tableau statique. Sans var, c'est la copie local (à la fonction) du tableau qui est modifiée.

S'il s'agissait d'un tableau dynamique, var ne serait pas nécessaire puisque le paramètre ne serait plus le tableau, mais un pointeur sur le tableau.