home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / mtest3.ifs < prev    next >
Text File  |  2001-05-02  |  154b  |  16 lines
  1. Program IFSTest;
  2. type
  3.   TPoint = record
  4.     x,y: Integer;
  5.  end;
  6.  
  7. var
  8. v: Variant;
  9. P: TPoint;
  10.  
  11. Begin
  12.   v := P;
  13.   writeln(GetType(V));
  14.  End.
  15.  
  16.