mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 00:49:31 +02:00
44 lines
766 B
ObjectPascal
44 lines
766 B
ObjectPascal
{$MODE OBJFPC}
|
|
{$M+}
|
|
{$Modeswitch advancedrecords}
|
|
|
|
program texrtti15;
|
|
|
|
uses typinfo, sysutils, uexrttiutil;
|
|
|
|
Type
|
|
{$RTTI EXPLICIT
|
|
PROPERTIES([vcPublic])
|
|
FIELDS([vcPublic])
|
|
METHODS([vcPublic])}
|
|
|
|
{ TMethodClassRTTI }
|
|
|
|
TMethodClassRTTI = Class (TObject)
|
|
public
|
|
generic Procedure PublicMethodA<T>(arg : T);
|
|
end;
|
|
|
|
generic procedure TMethodClassRTTI.PublicMethodA<T>(arg : T);
|
|
begin
|
|
Writeln('hiero')
|
|
end;
|
|
|
|
procedure TestClassMethods;
|
|
|
|
Var
|
|
A : PExtendedMethodInfoTable;
|
|
aCount : Integer;
|
|
AInstance : TMethodClassRTTI;
|
|
|
|
begin
|
|
aCount:=GetMethodList(TMethodClassRTTI,A,[]);
|
|
AssertEquals('Generic methods do not generate RTTI',0,aCount);
|
|
// CheckMethod('Full',0, A^[0],'PublicMethodA',vcPublic);
|
|
end;
|
|
|
|
begin
|
|
TestClassMethods;
|
|
end.
|
|
|