fxarrays.bis

来自「用VB实现的编译器的源代码」· BIS 代码 · 共 39 行

class AssociativeArray
  
  <definitions>
  
  variable UBound
    Integer;;
    [@-1];;
  end variable

  variable LBound
    Integer;;
    [@-1];;
  end variable

  method setValue
    2;;
    Key;;
    Value;;
  end method

  method getValue
    1;;
    Key;;
  end method

  <methods>

  method void setValue
    set this.TempMember [#Value];;
    delegate TempMember >> ["ArrayData(" & #Key & ")"];;
  end method
    
  method function getValue
    delegate TempMember << ["ArrayData(" & #Key & ")"];;
    return [:this.TempMember];;
  end method

end class