Discussion :

[eponette]

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

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?

[Bruno75]

le code de ta procedure ?

[e-ric]

Salut

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

du style :

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
 
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

[eponette]

C'est

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
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;

[Bruno75]

remplace

Code :

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

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

avec

Code :

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

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.

[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);

[Bruno75]

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

[eponette]

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
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;

[Bruno75]

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

tu as mis

constructor Create;

et non

constructor MaClass.Create

[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

[Bruno75]

utilise le copier coller

[eponette]

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 :

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
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 :

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

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é... )

Code :

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

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;

[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

[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

[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 :

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

constructor TTreeManager.Create(TrNodes: TTreeNodes);

[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.