home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / RECORD1.IPS < prev    next >
Encoding:
Text File  |  1998-03-25  |  622 b   |  31 lines
  1. TYPE
  2.    simpleRecord = RECORD
  3.       simple1       : integer;
  4.       anotherSimple : longint;
  5.    ENDRECORD
  6.  
  7.    myRecord = RECORD
  8.       field1 : byte;
  9.       field2 : string;
  10.       field3 : simpleRecord;
  11.    ENDRECORD
  12. ENDTYPE
  13.  
  14. VAR
  15.    myVar : myRecord;
  16. ENDVAR
  17.  
  18. PROCEDURE main
  19.    ConsoleClear; ConsoleShow;
  20.    myVar.field1 := 1;
  21.    myVar.field2 := 'OZOGAN KLONDAIK';
  22.    myVar.field3.simple1 := 2;
  23.    WRITELN('Jednoduch²  zßznam:')
  24.    WRITELN('Φφslo:', myVar.field1:4);
  25.    WRITELN(myVar.field2);
  26.  
  27.    WRITELN();
  28.    WRITELN('Vφcenßsobn² zßznam:');
  29.    WRITELN('Φφslo:', myVar.field3.simple1:4);
  30. ENDPROC
  31.