mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
24 lines
314 B
ObjectPascal
24 lines
314 B
ObjectPascal
{%norun}
|
|
{$MODE OBJFPC}
|
|
uses typinfo;
|
|
|
|
type
|
|
TMyRecord = record end;
|
|
|
|
{$M+}
|
|
TMyClass = class
|
|
published
|
|
procedure MyMethod(MyArgument: TMyRecord); virtual;
|
|
end;
|
|
{$M-}
|
|
|
|
procedure TMyClass.MyMethod(MyArgument: TMyRecord);
|
|
begin
|
|
end;
|
|
|
|
var
|
|
X: PTypeInfo;
|
|
begin
|
|
X := TypeInfo(@TMyClass.MyMethod);
|
|
end.
|