Reference to class procedure

Question

I'm have such static class procedure in my record:

TRec = record
  class procedure Proc; stdcall; static;
end;

Now I need array of such class procedures in my record:

TRec2 = record
  Procs: array of TClassProcStdcallStatic;
end;

This is possible and how to determine TClassProcStdcallStatic?

score 5 · Accepted Answer · answered Feb 19 '15 at 08:03

5

Define it like this:

type
  TClassProcStdcallStatic = procedure; stdcall;

The static keyword means that the method has no Self pointer and is a single pointer function type. As opposed to of object double pointer function types.

answered Feb 19 '15 at 08:03

David Heffernan

601,492
42
1,072
1,490

and this is will be class static procedure? – Alex Egorov Feb 19 '15 at 08:04
Yes, this type will serve your needs – David Heffernan Feb 19 '15 at 08:07
Ah, they finally fixed that. In D2007 you still had to cast. (And declare `TRec` to be an `object` instead of `record` to avoid an internal compiler error.) – Uli Gerhardt Feb 19 '15 at 08:17
1

Would declaring `TClassProcStdcallStatic = reference to procedure stdcall;` come with any disadvantages? This way, you'd also be able to assign anonymous methods to a variable of `TClassProcStdcallStatic`. – Günther the Beautiful Feb 19 '15 at 11:08
@GünthertheBeautiful That would work. I tend to avoid that approach if possible because the perf isn't as good. But perf may not be your issue. – David Heffernan Feb 19 '15 at 11:13

Reference to class procedure

1 Answers1