eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

strPadC fix

This commit is contained in:
mysticbbs 2013-04-22 13:35:06 -04:00
parent 6dc66831f6
commit 35f46bbc16
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mdl/m_strings.pas
View File

@ -53,6 +53,13 @@ Var
Space : Byte; Space : Byte;
Temp : Byte; Temp : Byte;
Begin Begin
If Length(Str) > Len Then Begin
Str[0] := Chr(Len);
Result := Str;
Exit;
End;
Space := (Len - Length(Str)) DIV 2; Space := (Len - Length(Str)) DIV 2;
Temp := Len - ((Space * 2) + Length(Str)); Temp := Len - ((Space * 2) + Length(Str));
Result := strRep(Ch, Space) + Str + strRep(Ch, Space + Temp); Result := strRep(Ch, Space) + Str + strRep(Ch, Space + Temp);