Wie vergleiche ich zwei Prozedurtypen?

[TiGü]

Also, ich weiß nicht ob du weiterhin auf Delphi 7 hängst, aber es geht hier um zwei Typinformationen für anonyme Methoden, die zwar gleich definiert sind (reference of procedure), aber nicht zuweisungskompatibel.
Das ist jetzt keine Methode, die an einem Objekt/Klasse dran hängt und sich mit GetMethods oder ähnlichen holen lässt.
Intern sind oben genannte nämlich Interfaces.

[Delphi.Narium]

Laut dieser Seite kommt man an Informationen zu allen Typen innerhalb eines Programmes:
http://docwiki.embarcadero.com/RADSt...pinformationen

Funktioniert eventuell dashier mit TProc bzw. TThreadProcedure?

https://theroadtodelphi.com/2010/10/...pe-definition/

Sind die Ergebnisse vergleichbar oder geben einen Ansatz zum Weiterforschen?

[TiGü]

Zitat von Delphi.Narium:

Laut dieser Seite kommt man an Informationen zu allen Typen innerhalb eines Programmes:
http://docwiki.embarcadero.com/RADSt...pinformationen

Funktioniert eventuell dashier mit TProc bzw. TThreadProcedure?

https://theroadtodelphi.com/2010/10/...pe-definition/

Sind die Ergebnisse vergleichbar oder geben einen Ansatz zum Weiterforschen?

Nicht so wirklich.
Für

Delphi-Quellcode:

  Writeln(DumpTypeDefinition(TypeInfo(TThreadProcedure)));
  Writeln(DumpTypeDefinition(TypeInfo(TProc)));

Erhält man

Code:

type
  TThreadProcedure=Interface(IInterface)
  end;

type
  TProc=Interface(IInterface)
  end;

Damit hat man aber nichts gewonnen. Und nein, die GUIDs der Inferfaces sind beide gleich und leer (0000...).

[Der schöne Günther]

Danke fürs Mitfiebern.

Wie gesagt, ich finde nur heraus dass sich beide von IInterface ableiten. Die RTTI-Methoden spucken für "welche Methoden hat das Teil" und ähnliches rein gar nichts aus.


Etwas ganz dummes ist mir noch eingefallen:
Solange folgendes noch kompiliert kann ich mir doch eigentlich sicher sein dass alles in Butter ist, oder?

Delphi-Quellcode:

var
   proc: TProc;
   threadProc: TThreadProcedure;
begin
   proc :=
      procedure()
      begin
      end;
   threadProc :=
      procedure()
      begin
      end;
end;