Question

Delphi 字符串转换成整形时变成两位数的格式

例如，str1:=2;
str2:=15;
转换之后就变成了 02以及15
也就是说如果是一位的话就在前面一位补0，如果是两位就不用补，好像有一个函数可以这样子转换的，但是我现在突然记不得了，以前有见过的，请哪位大虾指点指点，在线等，有点急

Answer 1

好像没这样的函数，不过自己写一个也不难，我下面的例子程序里面的函数你可以直接使用：

{$apptype console$}
function nstr0(x,n:integer):string;//调用例子writeln(nstr0(123,5);输出00123
var i:integer;
begin
setlength(result,n);
for i:=n downto 1 do
begin
result[i]:=chr(ord('0')+x mod 10);
x:=x div 10;
end;
end;

begin
write(nstr0(123,5));
end.

Answer 2

用 format()，格式如：2位、8位、前面空格6位
edit1.Text:=format('%8.8d',[15]);
edit1.Text:=format('%2.2d',[15]);
edit1.Text:=format('%8.2d',[15]);