home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / sumprint.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  951 b   |  38 lines
  1. unit SumPrint;
  2.  
  3. interface
  4. uses Def, PG, RE, LPaU;
  5. procedure PrintSummary( PrintStack: BlockArray; PrintStackTop: integer);
  6.  
  7. implementation
  8.  
  9. procedure PrintSummary;
  10. var Counter,
  11.     I:                                  integer;
  12.     TempEntry:                          MainRecordType;
  13.     LastZip:                            S10;
  14. begin
  15. Counter := 0;
  16. PrintDevice;
  17. assign(OutPutDevice,Device);
  18. rewrite(OutPutDevice);
  19. GetRec(TempEntry,PrintStack[1]);
  20. LastZip := LPad(TempEntry.ZipCode,5);
  21. for I := 1 to PrintStackTop do
  22.     begin
  23.     GetRec(TempEntry,PrintStack[I]);
  24.     if LastZip = LPad(TempEntry.ZipCode,5) then
  25.        inc(Counter)
  26.       else
  27.        begin
  28.        writeln(OutPutDevice,'Zip:  ',LastZip,'     Number = ',Counter:5);
  29.        Counter := 1;
  30.        LastZip := LPad(TempEntry.ZipCode,5);
  31.        end;
  32.     end;
  33. writeln(OutPutDevice,'Zip:  ',LastZip,'     Number = ',Counter:5);
  34. close(OutPutDevice);
  35. end;
  36.  
  37. end.
  38.