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:

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