Smart pascal source code


type
   TAbstract = class
   public
      procedure DoSomething; virtual; abstract;
      class procedure Test;
   end;

class procedure TAbstract.Test;
begin
   WriteLn('Success');
end;

{ main.pas }
Begin
  TAbstract.Test;  // Success

      TAbstract.Test(TAbstract);
	  
/// TAbstract = class (TObject)
///  [line: 72, column: 4, file: uMain]
var TAbstract = {
   $ClassName:"TAbstract",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   /// procedure TAbstract.Test()
   ///  [line: 78, column: 27, file: uMain]
   ,Test:function(Self) {
      WriteLn("Success");
   }
   ,Destroy:TObject.Destroy
};