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