Einzelnen Beitrag anzeigen

hanspeter

Registriert seit: 26. Jul 2003
Ort: Leipzig
1.350 Beiträge
 
Delphi XE2 Professional
 
#1

Interface als Result einer Function

  Alt 18. Jun 2014, 09:57
Delphi-Version: XE2
Ich habe nachfolgenden Konstruct:
Delphi-Quellcode:
 IMessageService = interface
    ['{GUI...}']
    procedure SubScribe(const ASubscriber : ISubScriber; const AFilt : Cardinal = 0);
  end;

function MessageService : IMessageService;
Das funktioniert auch.
Sobald ich aber Laufzeit Typinformationen einschalte, kommen zwei Fehlermeldungen.

function MessageService : IMessageService;
Typ <void> besitzt keine Typ Information.

Delphi-Quellcode:
TSubscrib = class
    Subsc: ISubScriber;
    Filter: Cardinal;
  end
Bringt bei eingeschalteter Laufzeittypinformation den Fehler
published Feld Filter ist weder Class noch Interface.
Füge ich public in der Definition ein, dann geht es.
(Ich dachte public ist Standard wenn keine Sichtbarkeit verwendet wird?)?
Hat wer eine Idee, was ich falsch mache?

Gruß
Peter
  Mit Zitat antworten Zitat