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

strPadL fix

This commit is contained in:
mysticbbs 2013-04-22 21:56:21 -04:00
parent 7d0997a6fa
commit cc010ba63c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mdl/m_strings.pas
View File

@ -72,8 +72,9 @@ Begin
If Length(Str) >= Len Then If Length(Str) >= Len Then
Result := Copy(Str, 1, Len) Result := Copy(Str, 1, Len)
Else Begin Else Begin
FillChar (TStr, Len, Ch); FillChar (TStr[1], Len, Ch);
SetLength (TStr, Len - Length(Str)); SetLength (TStr, Len - Length(Str));
Result := TStr + Str; Result := TStr + Str;
End; End;
End; End;