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

[himitsu]

Sowas gib es nicht,

aber warte mal 'nen Sekündchen, es gibt da eventuell einen Trick.
> praktisch wie bei TIndex aus meinem himXML ... muß aber mal probieren ob's wirklich so klappt


[add]

Delphi-Quellcode:

Type TMyProcA  = Procedure({Parameter});
  TMyProcB     = Procedure({Parameter}) of Object;
  TMyMultiProc = Record
    Class Operator Implicit(Const Value: TMyProcA): TMyMultiProc;
    Class Operator Implicit(Const Value: TMyProcB): TMyMultiProc;
  Private
    Type TProcType = (ptProcA, ptProcB);
    Case ProcType: TProcType of
      ptProcA: (ProcA: TMyProcA);
      ptProcB: (ProcB: TMyProcB);
  End;

Class Operator TMyMultiProc.Implicit(Const Value: TMyProcA): TMyMultiProc;
  Begin
    Result.ProcType := ptProcA;
    Result.ProcA    := Value;
  End;

Class Operator TMyMultiProc.Implicit(Const Value: TMyProcB): TMyMultiProc;
  Begin
    Result.ProcType := ptProcB;
    Result.ProcB    := Value;
  End;

Delphi-Quellcode:

Procedure Test(Const Proc: TMyMultiProc);
  Begin
    Case Proc.ProcType of
      ptProcA: Proc.ProcA({Parameter});
      ptProcB: Proc.ProcB({Parameter});
    End;
  End;

Test und TMyMultiProc müssen in der selben Unit deklariert sein,
aber notfalls kann man auch einfach das Private weglassen. :angel:

So müßte es möglich sein Test Prozeduren von beiden Typen zu übergeben.

Wobei man dieses Beispiel auch ganz einfach per Overloading hätte lösen können,
welches auch schon vor Delphi 2006 funktioniert.

Delphi-Quellcode:

Procedure Test(Const Proc: TMyProcA); Overload;
Procedure Test(Const Proc: TMyProcB); Overload;

[s.h.a.r.k]

Oh, das klingt klasse! Vielen herzlichen Dank! :thumb:

Das mit dem Überladen wollte ich eben verhindern und eben eine Methode schreiben, die mit so ziemlich allem umgehen kann. Mal schauen, was ich draus machen kann und ob das alles funktioniert was ich haben will :zwinker:

[himitsu]

Überladene Funktionen sind aber effektiver.

Ich hatte das nur mal entwickelt, da es gewisse Probleme beim Überladen von Properties gibt.
(vorallem in älteren Delphiversionen)

[s.h.a.r.k]

Ich will einer Klasse ja Multicast-Events beibringen, dafür aber nicht beliebig Methoden schreiben müssen, um dieses zu gewährleisten. Am einfachsten wäre eben eine Liste, die alle Methoden kennt, die aufgerufen werden sollen und zudem die Information bei welchen Event denn die Methode aufgerufen werden soll. Die AddEventListener-Methode sollte daher einer Referenz auf eine beliebige Methode erhalten (unabhängig von deren Signatur) und eben den Event-Typ. Da ich nicht einen extra Enum-Typ angeben wollte, wäre es ganz geschickt gewesen, wenn man TNotifyEvent oder dergleichen übergeben könnte. Das Ganze würde halt Schreibarbeit sparen :mrgreen:

[himitsu]

OK, ein bissl Arbeit macht es ja so oder so.
- entweder den Transferrecord erstellen und diesen in einer Prozedur auswerten,
- oder mehrere überladene Prozeduren

TMyMultiProc könnte man dann aber auch gleich als Speichervariable verwenden und notfalls auch noch mit in einem Array oder einer Liste,
falls man diese Event-Zeiger speichern möchte.

[s.h.a.r.k]

Genau das habe ich mir auch gedacht, als ich deinen Code gesehen habe. Ich muss nur gerade unbedingt ein Projekt fertig bekommen, danach habe ich Zeit das mal ausgiebig zu testen.

Habe im Moment diese Lösung hier umgesetzt, wobei ich halt immer noch nicht so richtig glücklich damit bin.

[himitsu]

Zitat:

Zitat von s.h.a.r.k

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

PS: Alle Klassen sind von TObject abgeleitet oder von irgendeiner Klasse, welche auch irgendwie von TObject abgeleitet wurde.

TClass ist praktisch ein Zeiger auf diese und abgeleitete Klassen.


Prozeduren und Methoden haben aber keine Vererbungshirachien
und demnach auch keinen gemeinsamen Vorfahren, welchen man verwenden könnte.

Das Einzige was ginge wären Typcasts Prozeduren/Funktionen > Pointer oder Procedure
und Methoden nach TMethod (oder so) oder halt "Procedure of Object"

[Uwe Raabe]

Wenn du dich auf neues Terrain wagen willst, versuch doch mal TRttiMethod.

[s.h.a.r.k]

Zitat:

Zitat von himitsu

Zitat:

Zitat von s.h.a.r.k

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

PS: Alle Klassen sind von TObject abgeleitet oder von irgendeiner Klasse, welche auch irgendwie von TObject abgeleitet wurde.

TClass ist praktisch ein Zeiger auf diese und abgeleitete Klassen.


Prozeduren und Methoden haben aber keine Vererbungshirachien
und demnach auch keinen gemeinsamen Vorfahren, welchen man verwenden könnte.

Das Einzige was ginge wären Typcasts Prozeduren/Funktionen > Pointer oder Procedure
und Methoden nach TMethod (oder so) oder halt "Procedure of Object"

Das macht meinen Plan zunichte :mrgreen: aber somit auch weniger Arbeit, da ich in nächster Zeit weniger probieren muss.