format函数前面用0补齐问题

Question

format('%5s',[sPartCount]   结果出来是sPartCount不足5位时前面用空格补齐，我想用0补齐，该怎样设置？谢谢

Answer 1

var
  InvoceNum:Integer
begin
  Format('%.7d', [InvoceNum]));//一共七位数字不够的补零
end;

Answer 2

format('00000%5s',[sPartCount] ）

Answer 3

sPartCount，字符串内容不是数字？？？
是数字的话转化下就行了

Answer 4

format()好象没这个功能，自己算长度然后补0

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  sPartCount: string;
begin
  sPartCount := '1234';
  if Length(sPartCount) <= 5 then
    ShowMessage(StringOfChar('0',5-Length(sPartCount)) + sPartCount);
end;

Answer 6

//引用 StrUtilsprocedure TForm1.Button1Click(Sender: TObject);
var
  sPartCount:string;
begin
  sPartCount:='123';
  showmessage(RightStr('00000'+sPartCount,5));
end;