home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / fillfram.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  2.0 KB  |  67 lines
  1. unit FillFram;
  2.  
  3. interface
  4. uses Def, ColorDef;
  5. procedure FillFrame;
  6.  
  7. implementation
  8.  
  9. procedure FillFrame;
  10. var I,
  11.     J:        integer;
  12.     Continue: boolean;
  13. begin
  14. with Entry do
  15.   begin
  16.   for I := 1 to ord(AuxAddress[0]) do  Frame[I,4] := AuxAddress[I];
  17.   for I := 1 to ord(MailAddress[0]) do Frame[I,5] := MailAddress[I];
  18.   for I := 1 to ord(City[0]) do        Frame[I,6] := City[I];
  19.   for I := 1 to ord(State[0]) do       Frame[I,7] := State[I];
  20.   for I := 1 to ord(ZipCode[0]) do     Frame[I,8] := ZipCode[I];
  21.   for I := 1 to ord(Phone1[0]) do      Frame[I,9] := Phone1[I];
  22.   for I := 1 to ord(Phone2[0]) do      Frame[I,10] := Phone2[I];
  23.   for I := 1 to ord(Comments[0]) do    Frame[I,11] := Comments[I];
  24.   for I := 1 to ord(Addressee[0]) do   Frame[I,1] := Addressee[I];
  25.   for I := 1 to ord(Title[0]) do       Frame[I,2] := Title[I];
  26.   for I := 1 to ord(Company[0]) do     Frame[I,3] := Company[I];
  27.   end;
  28.  
  29. (*
  30.   move( Addressee[1],    Frame[I,1], ord(Addressee[0]));
  31.   move( Title[1],        Frame[I,2], ord(Title[0]));
  32.   move( Company[1],      Frame[I,3], ord(Company[0]));
  33.   move( AuxAddress[1],   Frame[I,4], ord(AuxAddress[0]));
  34.   move( MailAddress[1],  Frame[I,5], ord(MailAddress[0]));
  35.   move( City[1],         Frame[I,6], ord(City[0]));
  36.   move( State[1],        Frame[I,7], ord(State[0]));
  37.   move( ZipCode[1],      Frame[I,8], ord(ZipCode[0]));
  38.   move( Phone1[1],       Frame[I,9], ord(Phone1[0]));
  39.   move( Phone2[1],       Frame[I,10], ord(Phone2[0]));
  40.   move( Comments[1],     Frame[I,11], ord(Comments[0]));
  41.  
  42. *)
  43.  
  44. for I := 1 to LastDescription do
  45.     begin
  46.     J := FieldLen[I];
  47.     Continue := true;
  48.     while (J > 0) and Continue do
  49.        begin
  50.        if Frame[J,I] <> ' ' then
  51.           begin
  52.           if (Frame[J,I] <> '/') and (Frame[J,I] <> '-') then
  53.              Continue := false
  54.             else
  55.              dec(J);
  56.           end
  57.          else
  58.           begin
  59.           Frame[J,I] := chr(PrintBlock);
  60.           dec(J);
  61.           end;
  62.        end;
  63.     end;
  64. end;
  65.  
  66. end.
  67.