TObjectList et variables...

Version imprimable

15/09/2005, 12h27
eponette

TObjectList et variables...

J'ai un truc étrange. J'ai dans une classe un TObjectList et un Integer. Dand une procedure, je libère le TObjectList et ma variable Integer est mise à 0 8O

Je suis en debug la valeur de la variable et lors du Free, j'ai ma variable mise à 0.

Quelqu'un peut m'expliquer cela?
15/09/2005, 12h42
Bruno75

le code de ta procedure ?

Salut

Ta variable est bien une variable membre ou une proriété utilisant une fonction Getter ?

du style :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 TMonObjet = class private FList : TObjecTList; function GetMaVariable: Integer; public property MaVariable : Integer read GetMaVariable; end; ... function TMonObjet.GetMaVariable: Integer; begin if Assigned(FList) then Result := FList.Count else Result := 0; end;
C'est juste une idée.

cordialement

e-ric

C'est

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
MaCalss = class
private
  fNbr: Integer;
  FList: TObjectList;
public
  procedure maProc;
end
 
constructor Create;
begin
  FList := TObjectList(Self);
end;
 
procedure MaClass.MaProc;
begin
  fNbr := 1;
  FList.free;
  //ici Fnbr = 0
end;

remplace
Code:

1 2 3 4 5 constructor Create; begin FList := TObjectList(Self); end;
avec
Code:

1 2 3 4 5 6 constructor MaClass.Create; begin inherited; FList := TObjectList.Create; end;
et n'oublie pas de déclarer constructor Create dans ta classe.

15/09/2005, 14h11
eponette

Désolé, ce n'est pas l'erreur! J'ai juste oublié cela lors de la transcription de mon code. Evidemment que j'ai FList := TObjectList.Create(self); :oops: :oops:
15/09/2005, 14h12
Bruno75

ben met ton code exact comment tu veux qu'on y arrive sinon

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
MaCalss = class
private
  fNbr: Integer;
  FList: TObjectList;
public
  constructor Create;
  procedure MaProc;
end
 
constructor Create;
begin
  FList := TObjectList.Create(Self);
end;
 
procedure MaClass.MaProc;
begin
  fNbr := 1;
  FList.free;
  //ici Fnbr = 0
end;

15/09/2005, 14h32
Bruno75

le code de ton Create n'est pas rattaché à la classe

tu as mis

constructor Create;

et non

constructor MaClass.Create
15/09/2005, 14h36
e-ric

C'est vraiment très curieux! je ne me souviens pas avoir vu un tel comportement.

Les deux membres de ta classe semblent indépendants et pourtant ils se comportent comme s'ils étaient liés.

Tu n'as pas oublié de méthodes qui auraient un effet significatif par hasard, du genre un calcul sur l'adresse de fNbr (avec un opérateur @ par exemple) ?

Peux-tu fournir le texte complet de ta classe ?

e-ric
15/09/2005, 14h38
Bruno75

utilise le copier coller

Merci Bruno, mais ma classe est trop grosse. J'essaie juste de vous montrer où cela ne fonctionne pas. Evidement que mon create est rattaché à la classe. Delphi fait cela automatiquement avec Ctrl+Shift+C...

Bref, pour en revenir au problème.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TTreeManager.AddNode(Level, Index: Integer);
var
  PID: Integer;
begin
  FLevel := Level;
//ici, Level et FLevel = 1
  if Level = 0
  then PID := Index
  else PID := FProject.Proj_ID;
  FBienNodes.Free;
  FImmNodes.Free;
//ici FLevel = 0
  FImmNodes := TObjectList.Create(True);
  FBienNodes := TObjectList.Create(True);
 
  SetProjectID(PID);
end;

La déclaration:

Code:

1
2
3
4
5
6
7
8
9
 
type
  TTreeManager = class(TComponent)
  private
    FImmNodes: TObjectList;
    FBienNodes: TObjectList;
    bOnDestroy: Boolean;
    FLevel, FNewLevel: Integer;
  ...

et le constructor (qui est bien déclaré... :wink: )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
constructor TTreeManager.Create;
begin
  bOnDestroy := False;
  FImmNodes := TObjectList.Create(True);
  FBienNodes := TObjectList.Create(True);
  Fproject := TProj.Create;
  FLevel := 0;
  FIndex := 0;
  FNewLevel := 0;
  FNewIndex := 0;
  InitTree;
end;

15/09/2005, 15h06
e-ric

je ne comprends pas ce qui peut être à l'origine de ton problème à la lumière des éléments que tu nous donnes.

Sans doute, un effet de bord dans le reste de la classe mais cela semble étrange.

e-ric
15/09/2005, 15h08
Bruno75

est-ce que t'aurais pas oublié un inherited dans ton Create par hasard ?

d'ailleurs, tu dérives d'un TComponent ce qui fait que ton Create doit avoir en paramètre un TComponent
15/09/2005, 15h22
eponette

Le create est Reintroduced pour avoir un autre paramètre que le Owner.

J'ai été un peu fort lors de mon nettoyage pour ne mettre que la partie du code intéressantes.

C'est

Code:

constructor TTreeManager.Create(TrNodes: TTreeNodes);
15/09/2005, 15h40
Bruno75

bon laisse tomber, à chaque fois ça change. putain comment tu veux ton trouve une erreur qui typiquement provient non pas d'une faute de raisonnement global mais d'une simple histoire d'initialisation ou de débordement ou

fout tout ton code même si ca fait 400 lignes ou j'abandonnes.