Interface als Result einer Function

[hanspeter]

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

[Der schöne Günther]

Eben nicht - published ist Standard. Sieht man an den Formular-Definitionen - Da stehen ja auch überhaupt keine Sichtbarkeitsmodifikatoren vor deinen Komponenten oder Event-Handlern

[himitsu]

Nicht ganz.

Standard ist PUBLIC.
Aber wenn die Klasse entsprechend deklariert ist, so wie z.B. TPersistent und seine Nachfahren, dann wird dort der Standard zu PUBLISHED.
{$M+} / {$TYPEINFO ON}

Und Published-Methoden/Property/Felder unterliegen bestimmten Beschränkungen, wobei da dann nicht mehr alles erlaubt ist.

[Der schöne Günther]

Oh, wieder was gelernt

[hanspeter]

Trotzdem mein Problem noch nicht gelöst.
wie es aussieht läßt sich die erweiterte Typinformation auch nicht für ein einzelnes Unit abschalten.

[hanspeter]

Und noch ein Nachtrag.
Eine Klasse, welche ohne Sichtbarkeit vereinbart ist, wird mit eingeschalteter Typinformation als published und mit ausgeschalteter Typinformation als public verwendet.

Delphi-Quellcode:

type 
  TSEPA = class
    BIC: String;
    IBAN: String;
  end;

Kommt bei mir eine Fehlermeldung "Published Feld BIC ist weder vom Typ class noch interface"
Füge ich public ein, dann wird die Vereinbarung fehlerfrei compiliert.

[Blup]

Wenn man Felder nicht als Property missbraucht, sollte es diese Meldung auch nicht geben.

Delphi-Quellcode:

type
  TSEPA = class
  private
    FBIC: String;
    FIBAN: String;
  published
    property BIC: string read FBIC write FBIC;
    property IBAN: string read FIBAN write FIBAN;
  end;

[hanspeter]

Das es so geht, ist mir schon klar.
Was mich stört ist die unterschiedliche Sichtbarkeit public/published,
abhängig davon ob erweiterte Typinfo ein- oder ausgeschaltet ist.