数字问题~

Question

function FullNumber(i:integer; len:integer):string;
begin
end;
i是传进去的一个数字 len是要扩充到几位比如FullNumber(13, 3);  返回 '013'  把13扩充到3个字符串
FullNumber(5, 3);       返回 '005'  
FullNumber(345, 3);     返回 '345'  自己写的太恶心了,不知道有没有漂亮点的写法~

Answer 1

function FullNumber(i:integer; len:integer):string;
begin
  Result := StringOfChar('0',len) + IntToStr(i);
  Result := Copy(Result,Length(Result)-len+1,len);
end;

Answer 2

直接用format函数就可以如：Format('%.*d', [3, 13])  结果：'013'
Format('%.*d', [3, 5]) 结果：'005'
Format('%.*d', [3, 345]) 结果：'345'

Answer 3

同事跟我讲的:result:= StringOfChar('0', len - Length(IntToStr(i))) + IntToStr(i);
Format('%.*d', [3, 345]) 结果：'345'
这个gen帅~