home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / invex / ozogan / custload.ips < prev    next >
Text File  |  1997-07-13  |  466b  |  24 lines
  1. TYPE
  2.    customerRecord = RECORD
  3.       key name    : string;
  4.       company     : string;
  5.    ENDRECORD
  6. ENDTYPE
  7.  
  8. VAR
  9.    query : customerRecord;
  10.    customerTable : TABLE of customerRecord;
  11. ENDVAR
  12.  
  13. PROCEDURE showRecData
  14.    WRITELN(query.name, ', ', query.company);
  15. ENDPROC
  16.  
  17. PROCEDURE main
  18.    ConsoleClear;
  19.    WRITELN('Nahrßvßm tabulku:');
  20.    loadTable(customerTable, 'CUSTOMER.DTA');
  21.    forEachRecord(customerTable, query, 'showRecData');
  22. ENDPROC
  23.  
  24.