is.vb

来自「FastScript 1.94 Full Source」· VB 代码 · 共 18 行

' FastScript v1.0          
' 'is' operator demo       


dim o, p

  o = new TObject
  p = new TPersistent
  if o is TObject then
    ShowMessage("o is TObject")
  end if
  if p is TObject then
    ShowMessage("p is TObject")
  end if
  if not (o is TPersistent) then
    ShowMessage("o is not TPersistent")
  end if