Jak zadeklarować dwie połączone ze sobą klasy?

Question

Mam pytanie podobne do this, ale w delphi.

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

type 
    TAsyncPopulator = class 
    private 
    _updater: TThreadPopulator; 
    end; 

Rozwiązanie z wymienionych kwestii nie ma zastosowania do Delphi

Answer 1

Zobacz Forward Declarations and Mutually Dependent Classes dokumentacji.

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; 

Użyj źródła, Luke! Twoja instalacja Delphi ma pełne źródła VCL i RTL, abyś mógł je przeczytać i uczyć się. I bardzo często korzysta z tego szablonu. Za każdym razem, gdy zadajesz sobie pytanie "jak mogę to zrobić", pomyśl tylko "jak zrobił to Borland" i całkiem możliwe, że już masz gotowy przykład w źródłach dostarczanych przez Delphi.

Answer 2

edycji przed każdym definicji klasy. Forward klasy działa w Delphi 2010. Nie znam wersji delphi dla czarownic, ale to jedyne rozwiązanie, które mogę wymyślić.

type 
TAsyncPopulator = Class; 

nadzieję, że pomogło

Answer 3

Poza zastosowaniem do przodu deklarację, można również utworzyć podklasę, aby rozwiązać ten:

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

    var 
    owner: TAsyncPopulator; 
end;