home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / strnu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  357 b   |  24 lines
  1. {$B+}
  2.  
  3. unit StrnU;
  4.  
  5. interface
  6. function Strng( Lngth: integer; Ch: char): string;
  7.  
  8. implementation
  9.  
  10. function Strng;
  11. var Temp:              string;
  12.     I:                 integer;
  13. begin
  14. Temp := '';
  15. if (Lngth < 255) and (Lngth > 0) then
  16.    begin
  17.    Temp[0] := chr(Lngth);
  18.    FillChar(Temp[1],Lngth,Ch);
  19.    end;
  20. Strng := Temp;
  21. end;
  22.  
  23. end.
  24.