www.pudn.com > FastScript15.rar > is.cpp

/**************************} 
{ FastScript v1.0          } 
{ 'is' operator demo       } 
{**************************/ 
 
{ 
  TObject o = new TObject; 
  TPersistent p = new TPersistent; 
  if (o is TObject) 
    ShowMessage("o is TObject"); 
  if (p is TObject) 
    ShowMessage("p is TObject"); 
  if (!(o is TPersistent)) 
    ShowMessage("o is not TPersistent"); 
}