Procédure récursive et pointeurs

Version imprimable

30/07/2008, 00h42
paulfr

Procédure récursive et pointeurs

Bonjour,

Une procédure récursive utilise des pointeurs typés sur une "class".
Après initialisation par New puis création et utilisation si je détruit
le pointeur par Dispose j'obtiens une erreur EAccesViolation.

En définitive ma procédure ne fonctionne sans problème que si je ne détruit pas les pointeurs ?

Comment peut on résoudre ce dilemme ?

PL
30/07/2008, 10h14
LeGEC

Salut,

Pourrais-tu être un peu plus spécifique? montrer un bout de code?

D'une manière générale, pour manipuler un objet, il vaut mieux utiliser les constructeurs/destructeurs pour l'allouer/le désallouer.

Quel bout de code fait l'allocation et la désallocation? Si c'est ta fonction récursive, fais bien attention à ne pas désallouer 2 fois le même objet.
30/07/2008, 13h34
guillemouze
Citation:

Envoyé par paulfr

Une procédure récursive utilise des pointeurs typés sur une "class".

le instance de classe sont deja des pointeurs, il n'est peut etre pas necessaire de les re-referencer. Par exemple:
Code:

1 2 3 4 5 6 var x: TStringList; begin x := TStringList.Create; // ici, x est une reference vers la memoire de l'objet (en gros, l'equivalent d'un pointeur sur un record)
31/07/2008, 00h02
Reisubar

Citation:

Une procédure récursive utilise des pointeurs typés sur une "class".

Inutile, toutes les variables de type objets sont déjà des références (pointeurs) sur des instances de classe.

Citation:

Après initialisation par New

New n'initialise pas, il alloue de la mémoire en fonction du type pointeur.

Citation:

puis création et utilisation si je détruit
le pointeur par Dispose j'obtiens une erreur EAccesViolation.

Les objets se créent en utilisant le constucteur Create, pas à travers des pointeurs typés.

[delphi4]proc. récursive - compléments

Bonjour

Je constate que ma question etait trop succinte, pas suffisamment explicite.
Le contexte d'utilisation des pointeurs se faisant dans un arbre binaire.
J'indique donc, ci-dessous, le code limité au strict nécessaire pour la compréhension.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
interface
type
  ...
  FContenu = record
    case tip : TypeNoeud of
      CTE       : (Valeur : Txy);
     ...
  end;
 
  PtrFonc = ^TFonc;
  TFonc   = class   //object
  public
    Gauche, Droite : PtrFonc;
    v              : FContenu;   // record
    Function ...
     ...
    Function CreeArbre(ch : string) : boolean;
  Private
 
  end;
 
implementation
....
Function TFonc.CreeArbre(ch : string) : boolean;
var
   ...
   p1, p2   : PtrFonc;
 
procedure Coupe(c : string; ...);
var S : string;
begin
   new(p1);
   p1^ := TFonc.Create;   // ( create est héritée)
   gauche := p1;
   v.tip := ...
   ...
   CreeArbre := gauche^.CreeArbre(c);
end;
  ....
//   P1.Free;  p2.Free;   ////////////////////  Free -> ERREUR
end;
 
begin      // CreeArbre
   //                 
   CreeArbre := false;  
   ....
   if ch[1]= ... then begin
                        Coupe(copy(ch,2,lon-1),...);
                        exit;
                     end;
  ....
   end;

Une autre procédure, semblable à 'coupe' utilise les pointeurs p1 et p2.

Merci pour vos participations.

02/08/2008, 01h25
Reisubar
Pourquoi :
Code:

1 2 3 4 PtrFonc = ^TFonc; TFonc = class //object public Gauche, Droite : PtrFonc;
au lieu de :
Code:

1 2 3 TFonc = class //object public Gauche, Droite : TFonc;
La deuxième forme est beaucoup plus cohérente et évite de faire toutes tes indirections susceptibles d'erreur. Et Gauche reste un pointeur sur l'instance de classe TFonc.
05/08/2008, 00h49
paulfr

[D4]Procédure récursive

Bonnjour,

Suivant les indications de REISUBAR j'ai pu supprimer les pointeurs
et régler ce probléme.

Merci pour votre intervention.
PL