Code:
Type
TClassHelper = Helper For TClass
Function ClassName : String; Static;
Begin
End;
End;
Var c := TObject;
PrintLn(c.ClassName);
Output:
Syntax Error: Only non-virtual class methods can be marked as static [line: 5,
column: 32]
Syntax Error: Class method expected [line: 13, column: 11]
Syntax Error: Access violation at address 00532523 in module 'test.exe'. Read
of address 00000000
Original issue reported on code.google.com by kazantse...@mail.ru on 12 Jul 2012 at 5:43
Original issue reported on code.google.com by
kazantse...@mail.ru
on 12 Jul 2012 at 5:43