Come dichiarare due classi interconnesse?

Question

Ho una domanda simile a this, ma in delphi.

type 
    TThreadPopulator = class(TThread) 
    private 
    _owner:TASyncPopulator; //Undeclared identifier 
    end; 

type 
    TAsyncPopulator = class 
    private 
    _updater: TThreadPopulator; 
    end; 

soluzione di questione di cui non è applicabile a Delfi

Answer 1

Vedere Forward Declarations and Mutually Dependent Classes documentazione.

type (* start type section - one unified section "to rule them all" *) 
    TAsyncPopulator = class; (* forward declaration *) 

    TThreadPopulator = class(TThread) 
    private 
    _owner:TASyncPopulator; 
    end; 

    TAsyncPopulator = class (* final declaration - WITHIN that very section where forward declaration was made *) 
    private 
    _updater: TThreadPopulator; 
    end; 

Utilizzare la fonte, Luke! L'installazione di Delphi include sorgenti VCL e RTL complete per la lettura, la visualizzazione e l'apprendimento. E usa molto questo modello. Ogni volta che ti chiedi "come potrei farlo", pensa solo "come ha fatto Borland a farlo" e abbastanza probabile che tu possa già avere un esempio già pronto nelle fonti fornite da Delphi.

Answer 2

Utilizzare questo prima di ogni definizione di classe. Il corso di perfezionamento in corso a Delphi 2010. Non conosco la versione strega di Delphi, ma è l'unica soluzione che riesco a pensare.

type 
TAsyncPopulator = Class; 

Speranza ho aiutato

Answer 3

Oltre a utilizzare una dichiarazione anticipata, è possibile anche creare una sottoclasse per risolvere questo:

TThreadPopulator = class(TThread) 
    type 
    TAsyncPopulator = class 
     _updater: TThreadPopulator; 
    end; 

    var 
    owner: TAsyncPopulator; 
end;