basic_records.pb

来自「Delphi脚本控件」· PB 代码 · 共 14 行

Structure RandomPoint
  Dim X As Integer = rnd(0, 100)
  Dim Y As Integer = rnd(0, 100)
End Structure

Structure RandomCircle
  Inherits RandomPoint
  Dim R As Integer = rnd(0, 100)
End Structure

Dim C As RandomCircle
println C