"reference to procedure" vs. "procedure"

[Der schöne Günther]

Der Typ System.SysUtils.TProc ist definiert als reference to procedure .

Als Komfortfunktion kann ich somit nicht nur anonyme Methoden reinstecken, sondern auch "klassische" Prozeduren sowie eine "procedure of object". Beispiel:

Delphi-Quellcode:

type
   TMyObject = class
      class procedure p();
   end;

procedure p();
var
   myObject: TMyObject;
   p1, p2, p3: TProc;
begin
   p1 := p;
   p2 :=
      procedure()
      begin
         WriteLn('Hello world')
      end;

   p3 := TMyObject.p;
end;

Ganz dumme Frage: Kann ich das abstellen? Die Zuweisungen an p1 und p3 klappen, soweit ich das verstanden habe, nur weil der Compiler im Endeffekt

Delphi-Quellcode:

   p1 :=
      procedure()
      begin
         p();
      end;

und

Delphi-Quellcode:

   p3 :=
      procedure()
      begin
         TMyObject.p();
      end;

draus macht. Kann ich dieses ungewollte "Auto-Boxing" abstellen sodass nur p2 eine gültige Zuweisung ist?

[himitsu]

Nein.

PS: Der Compiler macht da ein generiesches Interface drum

Delphi-Quellcode:

TProcObject = class(TGeheimesInterface)
  FGesharteVariablen: IVariablen;
  FProc: procedure();
  FEvent: procedure() of object;
  ...
  procedure Call;
end;

TProcObject.procedure Call;
begin
  if Assigned(FProc) then
    FProc(FGesharteVariablen);
  if Assigned(FEvent) then
    FEvent(FGesharteVariablen);
  ...
end;

[freimatz]

Was hindert Dich Günther ein eigenes TProc zu definieren?

[Der schöne Günther]

Wenn du mir zeigst wie man das macht, gerne

[Uwe Raabe]

Zitat von freimatz:

Was hindert Dich Günther ein eigenes TProc zu definieren?

Das würde nichts bringen. Im einen Fall TProc = procedure würde nur die Zuweisung 1 klappen, bei TProc = procedure of object klappt nur Zuweisung 3. Wenn Zuweisung 2 klappen soll, dann funktionieren immer auch 1 und 3.

Es gibt übrigens noch einen vierten Fall:

Delphi-Quellcode:

type
   TMyObject = class
      procedure p();
   end;

...
   p4 := myObject.p;

[Der schöne Günther]

Ok, darauf hatte ich mich seelisch auch schon eingestellt.

Nette Compiler-Magic-Komfortfunktion, aber wäre halt schon wenn man auch mal sagen könnte "Nein danke".

[Uwe Raabe]

Zitat von Der schöne Günther:

Nette Compiler-Magic-Komfortfunktion, aber wäre halt schon wenn man auch mal sagen könnte "Nein danke".

Warum genau willst du das denn so?