| PadChLeftStr Function | 
Unit
QESBPCSConvert
Declaration
Function PadChLeftStr(const S: string; const Ch: Char; const Len: LongWord): string;
Description
Also See: PadLeftStr, PadChRightStr
| Parameters | 
| S | the String to pad. | 
| Ch | the character to use for padding | 
| Len | the length of the resultant substring. If Length (S) >= Len then NO padding occurs, and S is returned. | 
Category
Extra String Handling RoutinesImplementation
 
| function PadChLeftStr (const S: string; const Ch: Char;
     const Len: LongWord): string;
var
     N: LongWord;
begin
     N := Length (S);
     if N < Len then
          Result := FillStr (Ch, Len - N) + S
     else
          Result := S;
End; | 
|  |