[delphi] Volgorde van type/class definieren.

[PostbodeSiemen]

Ik heb het volgende probleem bij het declareren van mijn classes

code:

Type
   IObservable = interface
      procedure   attachObserver(var newObserver: IObserver);
      procedure   detachObserver(var ObserverToRemove: IObserver);
      procedure   notify;
   end;

   IObserver = interface
       procedure  update(observable : IObservable);
   end;

geeft de foutmelding
[Error] CTLogObservable.pas(7): Undeclared identifier: 'IObserver'

en

code:

Type
   IObserver = interface(IInterface)
       procedure  update(observable : IObservable);
   end;

   IObservable = interface
      procedure   attachObserver(var newObserver: IObserver);
      procedure   detachObserver(var ObserverToRemove: IObserver);
      procedure   notify;
   end;

geeft:
[Error] CTLogObservable.pas(7): Undeclared identifier: 'IObservable'

Dit is dus een beetje vervelend
Hij kijkt niet vooruit dus er is er altijd één waar hij op stuk loopt.

[whoami]

Doe het eens als volgt:

code:

  Type
     IObservable = Interface ;

  Type 
     IObserver = Interface
       procedure Update (observ  : IObservable);
     end;

  Type 
    IObservable = interface
       .. .bla...
    end;

Je geeft dus eerst gewoon aan dat IObservable bestaat, maar je werkt het later uit.

[Delphi32]

Forward declaration gebruiken.

code:

type
  IObserver = interface; //dit is de forward declaration
  
  IObservable = interface
    procedure attachObserver(var newObserver: IObserver);
    //IObservable 'kent' dus nu het IObserver ding
  end;
  
  //en nu kan ie gedefinieerd worden.
  IObserver = interface(IInterface)
    procedure Update
  end;

[edit]2 zielen 1 gedachte met 1 minuut verschil

[PostbodeSiemen]

Snel en doeltreffend, bedankt

[LordLarry]

code:

Type
   IObserver = interface;

   IObservable = interface
      procedure   attachObserver(var newObserver: IObserver);
      procedure   detachObserver(var ObserverToRemove: IObserver);
      procedure   notify;
   end;

   IObserver = interface
       procedure  update(observable : IObservable);
   end;

Forward declaratie heet dat

[ Voor 0% gewijzigd door LordLarry op 14-08-2002 11:12 . Reden: Telaat, er waren er al 3 voor me binnen een minut. Mental note: Sneller typen.... ]