Code:
Type
TAction = Class Abstract
Function GetTitle : String; Virtual; Abstract;
Function GetHint : String; Virtual; Abstract;
End;
Type
TFileOpenAction = Class(TAction)
Function GetTitle : String; Override;
Begin
End;
End;
PrintLn(TFileOpenAction.Create.GetHint);
Output:
Runtime Error: Access violation at address 0051D618 in module 'test.exe'. Read
of address 00000000 in TAction.GetHint [line: 18, column: 32]
Original issue reported on code.google.com by kazantse...@mail.ru on 5 May 2012 at 2:56
Original issue reported on code.google.com by
kazantse...@mail.ru
on 5 May 2012 at 2:56