Pointeur sur une instance d'objetRésolu

Question

Bonjour,
J'ai besoin d'un tel pointeur pour avoir acc&#233;s aux variables et aux fonctions d'un objet. 

L'objet instanci&#233; (partiel) est le suivant :

type TRecordSet=class(Tobject)
    public
      Fields:array of string;
      Rows:array of array of string;
      Constructor Create(Owner: TComponent);
      Destructor Destroy;
      function Value(Field:string;Row:integer=-1):string;overload;
      function Next(Field:string=''):string;
   private
end;
 
je voudrai pouvoir faire quelque chose comme  : p.Rows[x][y]:='texte' et p.Value(etc)

HN

roud59 · Accepted Answer

Salut

Ne mets qu'UNE clause type. Quand je mets tous tes type j'ai les m&#234;mes erreurs.

J'ai compil&#233; ce qui suit avec D7 entreprise sans soucis :

uses ....
type //Un seul dans interface ...


  TDb = class; //D&#233;claration avanc&#233;e.
  TRecordSet = class;


  TRecordSet = class(TObject)
    p : TDB;
  end;


  TDb = class(TObject)
    r : TRecordSet;
  end;


  TForm1 = class(TForm)
  private
    { D&#233;clarations priv&#233;es }
    X : TRecordSet;
    Y : TDB;
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    X := TRecordSet.Create;
    Y := TDB.Create;;
end;

end.

Bonne prog

Roud59

roud59 · Answer

Salut

Si j'ai bien compris ta question, c'est tout simple :

var p : TRecordSet  // p est en fait un pointeur
...
p := TRecordSet.Create(Form1);
p.Row[x][y] := 'texte';
...
p.Free;

J'esp&#232;re avoir pu t'aider.
Bonne prog

Roud59

cs_neko · Answer

p := TRecordSet.Create(Form1);
p.Row[x][y] := 'texte';

Tu peux pas faire &#231;a directement, il faut dabord d&#233;finir la longueur du tableau via SetLength() par exemple

bouh

Hnimsgern · Answer

Merci roud59 et neko pour vos r&#233;ponses mais en fait le probl&#232;me est un peu plus compliqu&#233; car j&#8217;ai deux objets d&#233;clar&#233;s  chacun faisant r&#233;f&#233;rence &#224; l'autre:


 <?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


type TRecordSet=class(Tobject)
    public


p:TDb;                            //Message TDb inconnu (c&#8217;est normal).
      Fields:array of string;


         etc&#8230;


end;


 


type TDb=class(Tobject)
    public


function TDb.OpenRecordset(Selectstring:Pansichar;var RecordSet:TRecordSet):boolean;
         etc&#8230;


end;


 


Si je d&#233;clare le type TDb en premier j&#8217;aurai un message d&#8217;erreur sur la fonction : 


 


function TDb.OpenRecordset(Selectstring:Pansichar;var RecordSet:TRecordSet):boolean;


 


En attendant de trouver une solution, je met la d&#233;claration de p:TDb en global.

HN

roud59 · Answer

Bonjour Hnimsgern

Avant la d&#233;claration de TRecordSet, ajoute une pr&#233;-declaration de TDb :
TDb = class;
Je ferais la m&#234;me chose pour TRecordSet pour &#234;tre tranquille, ce qui donne :


type

TDb=class;
TRecordSet=class;

TRecordSet=class(Tobject)    public<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


p:TDb;                            //Message TDb inconnu (c&#8217;est normal).
      Fields:array of string;


         etc&#8230;


end;


 


TDb=class(Tobject)
   public


function TDb.OpenRecordset(Selectstring:Pansichar;var RecordSet:TRecordSet):boolean;
         etc&#8230;


end;

Roud59

Hnimsgern · Answer

Bonjour Roud59,

Effectivement cela devrait fonctionner . D'apr&#232;s la doc, c'est une d&#233;claration 
avanc&#233;e dont le type n'est pas encore d&#233;fini. Malheurement mon compilateur 
(Delpi 7 personnel) ne  l'acepte pas (message TDb n'est pas encore 
compl&#232;tement d&#233;fini) .
Je ne vois d'options compilateur qui puissent bloquer la d&#233;claration.

Avec des objets simplifi&#233;s le r&#233;sultat est identique :

type  TDb = class; //D&#233;claration avanc&#233;e.


type
  TRecordSet = class(TObject)
  p:TDB;
end;


type
  TDb = class(TObject)
end;

Je vais essayer de r&#233;partir les d&#233;clarations dans deux modules.

HN

Hnimsgern · Answer

Mer&#231;i !

HN

Pointeur sur une instance d'objet

7 réponses

Votre réponse

Discussions similaires