An einer Stelle im Code caste ich eine System.SysUtils.TProc auf eine System.Classes.TThreadProcedure , beispielsweise:

markieren

Delphi-Quellcode:

var
   proc: TProc;
begin
   TThread.Queue(nil, TThreadProcedure(proc));
end;

Ich finde dass ich das darf denn
TProc = reference to procedure; und
TThreadProcedure = reference to procedure;
Trotzdem bin ich ein vorsichtiger Mensch und möchte in meinen Tests prüfen ob diese Annahme in der jeweiligen Delphi-Version noch stimmt.


Frage: Wie prüfe ich ob TThreadProcedure und TProc kompatibel sind?

Bislang schaffe ich nur zu prüfen ob beides Typen sind die sich von IInterface ableiten (Compiler-Magic und so). Aber dann?

zusammenfalten · markieren

Delphi-Quellcode:

uses
   System.SysUtils,
   System.Classes,
   System.Rtti;
var
   rttiContext: TRttiContext;
   a, b: TRttiType;
   intf: TRttiType;
begin
   rttiContext := TRttiContext.Create();

   a := rttiContext.GetType( TypeInfo(TThreadProcedure) );
   b := rttiContext.GetType( TypeInfo(TProc) );

   // check if both descend from IInterface
   intf := rttiContext.GetType( TypeInfo(IInterface) );
   Assert( a.BaseType = intf );
   Assert( b.BaseType = intf );

   // what else?
   // a.GetMethods() = empty array :-(
end.

Man müsste prüfen ob die ggf. zusätzliche Argumente dazubekommen haben und von welchem Typ die sind und ob die Parameter-Dingsdabums haben (ohne, var, out, const).
Aber wie mit der RTTI machen? Hm...

Zitat von TiGü:

Man müsste prüfen ob die ggf. zusätzliche Argumente dazubekommen haben und von welchem Typ die sind und ob die Parameter-Dingsdabums haben (ohne, var, out, const).
Aber wie mit der RTTI machen? Hm...

Guckstdu u. a. hier: https://www.delphipraxis.net/194103-...-via-rtti.html
Man kommt über RTTI eigentlich schon seit Delphigenerationen an (fast) alles ran.

Frage:

Wenn das geht

markieren

Delphi-Quellcode:

intf := rttiContext.GetType( TypeInfo(IInterface) );
Assert( a.BaseType = intf );
Assert( b.BaseType = intf );

was kommt denn dann bei Assert( a.BaseType = b.BaseType ); raus?

Zitat von Delphi.Narium:

Zitat von TiGü:

Man müsste prüfen ob die ggf. zusätzliche Argumente dazubekommen haben und von welchem Typ die sind und ob die Parameter-Dingsdabums haben (ohne, var, out, const).
Aber wie mit der RTTI machen? Hm...

Guckstdu u. a. hier: https://www.delphipraxis.net/194103-...-via-rtti.html
Man kommt über RTTI eigentlich schon seit Delphigenerationen an (fast) alles ran.

Hab ich geguckt, habe gesehen das es da nicht um procedure/function Argumente bzw. Parameter ging, sondern um Enum zu String und/oder zurück.
Hast du geguckt?

Ja und wenn man weiterguckt, dann findet man mit dem Ansatz auch die Logik um an die Methoden, Proceduren und deren Parameter zu kommen.

In älteren Delphis findet man die Grundlagen in der Unit TypInfo, heute dürfte es System.TypInfo sein.

Zitat von Delphi.Narium:

Ja und wenn man weiterguckt, dann findet man mit dem Ansatz auch die Logik um an die Methoden, Proceduren und deren Parameter zu kommen.

Welche Beitragsnummer soll das sein?