home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_del / withtest2.ifs < prev   
Text File  |  2001-07-24  |  169b  |  10 lines
  1. type
  2.   tmyrecord = record v1,v2: integer; end;
  3. var
  4.  x : tmyrecord;
  5. begin
  6.   x.v1 :=123;
  7.   x.v2 := 321;
  8.   with x do
  9.   writeln(inttostr(v1)+' '+inttostr(v2));
  10. end.