home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / withtest.ifs < prev   
Text File  |  2001-04-22  |  141b  |  12 lines
  1. Program IFSTest;
  2. var
  3.   c: TObject;
  4. Begin
  5.   c := tObject.Create;
  6.   with c do
  7.   begin
  8.     writeln(ClassName);
  9.     Free;
  10.   end;
  11. End.
  12.