CentreChStr Function |
Unit
QESBPCSConvert
Declaration
Function CentreChStr(const S: string; const Ch: Char; const Len: LongWord): string;
Description
If even amounts of Ch cannot be put on both side, the extra Ch will be on the right side. Also See: CentreStr
Parameters |
S | the string to be centred. If Length (S) >= Len then NO padding occurs, and S is returned. |
Ch | the character to Pad with. |
Len | the Length of returned string. |
Category
Extra String Handling RoutinesImplementation
function CentreChStr (const S: string; const Ch: Char; const Len: LongWord): string; var N, M: LongWord; begin N := Length (S); if N < Len then begin M := Len - N; // Length of padding needed N := M div 2; // Half on either side if Odd (M) then // Handle Odd differently to Even Result := FillStr (Ch, N) + S + FillStr (Ch, N + 1) else Result := FillStr (Ch, N) + S + FillStr (Ch, N); end else Result := S; End; |
|