home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / dl.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  1.7 KB  |  56 lines
  1. unit DL;
  2.  
  3. interface
  4. uses Def, LPaU, FastWr;
  5. procedure DisplayLine( Entry: MainRecordType; Row: integer; UseAttr: byte);
  6.  
  7. implementation
  8.  
  9. procedure DisplayLine;
  10. var X,
  11.     J,
  12.     I:             integer;
  13.     Temp1,
  14.     Temp2:         s30;
  15.     Ch:            char;
  16. begin
  17. FastWrite( LPad(Entry.Addressee,29), Row, 6, UseAttr);
  18. case ShowMode of
  19.      1:  begin
  20.          Ch := Entry.Division;        I := ord(Ch);
  21.          Ch := Entry.SubDivision;     J := ord(Ch);
  22.          if (I < 1) or (I > DivisionTop) then
  23.             Temp1 := 'null AlphaCode'
  24.            else
  25.             Temp1 := AlphaCode[I,0];
  26.          if (J < 1) or (J > SubDivisionTop) then
  27.             Temp2 := 'null AlphaCode'
  28.            else
  29.             Temp2 := AlphaCode[I,J];
  30.          Temp1 := LPad(Temp1,9);
  31.          Temp2 := LPad(Temp2,9);
  32.          FastWrite( Entry.Phone1, Row, 36, UseAttr);
  33.          FastWrite( Entry.Phone2, Row, 49, UseAttr);
  34.          FastWrite( Temp1, Row, 62, UseAttr);
  35.          FastWrite( Temp2, Row, 72, UseAttr);
  36.          end;
  37.      2:  begin
  38.          FastWrite( Entry.AuxAddress, Row, 36, UseAttr);
  39.          FastWrite( Entry.Phone1, Row, 67, UseAttr);
  40.          end;
  41.      3:  begin
  42.          FastWrite( LPad(Entry.MailAddress,24), Row, 36, UseAttr);
  43.          FastWrite( LPad(Entry.City,11), Row, 61, UseAttr);
  44.          FastWrite( Entry.State, Row, 73, UseAttr);
  45.          FastWrite( LPad(Entry.ZipCode,5), Row, 76, UseAttr);
  46.          end;
  47.      4:  begin
  48.          FastWrite( LPad(Entry.Title,15), Row, 36, UseAttr);
  49.          FastWrite( LPad(Entry.Company,16), Row, 52, UseAttr);
  50.          FastWrite( Entry.Phone1, Row, 69, UseAttr);
  51.          end;
  52.      end;
  53. end;
  54.  
  55. end.
  56.