一个关于字符串的小问题

[blackcase]

我得到一个string，判断它的长度是否为一个值（比如10）如果大于10就截掉高位，如果少于10就在前面补0，怎么实现啊？

[天涯倦客]

format

[天涯倦客]

s:='0000000000'+s;
s:=Copy(s,length(s)-9,10)÷
也行

[ihihonline]

vStr = "0000000000" + vStr;
vStr.substring(vStr.length() - 10 , 10)

[lonoaer]

var
S: String;
iLen: Integer;
begin
S := 'AAAAAAAAABBBB';
iLen := length(S);

if iLen < 10 then S := StringOfChar('0', 10-iLen)+S
else SetLength(S, 10);

[何鲁青]

rightStr('0000000000'+myStr, 10);