home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / rpau.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  520 b   |  27 lines
  1. unit RPaU;
  2.  
  3. interface
  4. function RPad( X: string; Lngth: integer): string;
  5.  
  6. implementation
  7. function RPad;
  8. var Temp:              string;
  9.     I:                 integer;
  10. begin
  11. Temp := X;
  12. if ord(Temp[0]) <= Lngth then
  13.    begin
  14.    while ord(Temp[0]) < Lngth do   Temp := ' ' + Temp;
  15.    end
  16.   else
  17.    while ord(Temp[0]) > Lngth do
  18.        begin
  19.        dec(Temp[0]);
  20.        move(Temp[2],Temp[1],ord(Temp[0]));
  21.        end;
  22. RPad := copy(Temp,1,Lngth);  (* this line is probably redundant *)
  23. end;
  24.  
  25. end.
  26. 
  27.