Function IntAddZero60(Source: Integer; SetLength: Integer): String;
const
Zero: String='000000000000000000000000000000000000000000000000000000000000';
var
StrLen: Integer;
TempS: String;
Begin
TempS:=IntToStr(Source);
StrLen:=Length(TempS);
if StrLen>=SetLength then
Result:=Copy(TempS, 1, SetLength)
else
Result:=Copy(Zero,1, SetLength-StrLen)+TempS;
End;
这样调用即用
IntAddZero60(yourvalue*100, 10);