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