home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / demo / rectest.ifps3 < prev    next >
Text File  |  2002-04-18  |  178b  |  11 lines
  1. Program IFSTest;
  2. type
  3.   TMyRec = record a: Integer; b: string; end;
  4. var
  5.   s: TMyRec;
  6. Begin
  7.   s.a := 1234;
  8.   s.b := 'abc';
  9.   writeln(s.b);
  10.   writeln(inttostr(s.a));
  11. End.