home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / vartest.ifs < prev    next >
Text File  |  2001-04-16  |  283b  |  16 lines
  1. Program IFSTest;
  2. var
  3.   v: Variant;
  4. Begin
  5.   v := 2;
  6.   v := 'carlo';
  7.   v := 2.0;
  8.   writeln(GetType(V));
  9.   v := nil;
  10.   if v = nil then writeln('ok1');
  11.   if v <> nil then writeln('ok2');
  12.   v := 2;
  13.   if v = nil then writeln('ok3');
  14.   if v <> nil then writeln('ok4');
  15.  End.
  16.