home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / CUSTLOAD.IPS < prev    next >
Text File  |  1998-03-25  |  481b  |  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.    ConsoleShow;
  20.    WRITELN('Nahrßvßm tabulku:');
  21.    loadTable(customerTable, 'CUSTOMER.DTA');
  22.    forEachRecord(customerTable, query, 'showRecData');
  23. ENDPROC
  24.