Class var as Property

Smart pascal source code


type
  TBase = class
    class var v: Integer;
    property rv: Integer read v;
    property wv: Integer write v;
    property rwv: Integer read v write v;
  end;

{ main.pas }

Begin
  TBase.v := 1;
  Writeln(TBase.rv);
  TBase.wv := 2;
  Writeln(TBase.rwv);
  TBase.rwv := 3;
  Writeln(TBase.v);
{ ### CONSOLE OUTPUTS ###
  1
  2
  3
}

      v = 1;
      WriteLn(v);
      v = 2;
      WriteLn(v);
      v = 3;
      WriteLn(v);

/// TBase = class (TObject)
///  [line: 72, column: 3, file: uMain]
var TBase = {
   $ClassName:"TBase",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};