PadLeft                                                       StrngTTT



Purpose   To expand and left justify a string with a specific
          character.

Returns   String;

Declaration    PadLeft(Str:string; Size:byte; Pad:char):string;

          Str is the string to be expanded
          Size is the new string length
          Pad is the character to expand the string with

Uses StrngTTT.



Example


               USES STRNGTTT;
               VAR TTT : STRING;
               BEGIN
                 TTT := PADLEFT(' ASTERISKS ',20,'*');
               END.


The string TTT is assigned the value " Asterisk **********".