Allgem. Typ für prozedurale Typen, wie TClass für Klassen

**s.h.a.r.k**

Hallo zusammen,

gibt es eigentlich einen Typen, unter dem alle prozeduralen Typen laufen? So wie TClass für alle möglichen Klassen. Ich würde einen Parameter für eine Methode definieren, dem ich einfach so einen Typ, wie z.B. TNotifyEvent übergeben kann.

Hier das ganze als Code, wie ich mir das Vorstelle:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  // Prozedurale Definition

  TMyProcA: procedure({Parameter});

  TMyProcB: procedure({Parameter}) of object;

// ... irgendwo im Quelltext

procedure blub(const ATypeRef: TProcedureType); // <-- TProcedureType: Imaginärer Typ

begin

  if (ATypeRef = TMyProcA) then

  begin

    { ... }

  else if (ATypeRef = TMyProcB) then

  begin

    { ... }

  end

  { etc. }

end;

mfg
Armin

Allgem. Typ für prozedurale Typen, wie TClass für Klassen

Allgem. Typ für prozedurale Typen, wie TClass für Klassen

Forumregeln