????

Question

如何用delphi程序做从“0000”到“9999”的函数呢？

Answer 1

不知道我理解错没有
function NumberToString(num: Integer): String;
begin
  Result := '';
  if (num>=0) and (num<10) then
    Result:='000'+inttostr(i)
  else if (num>=10) and (num<100) then
    Result:='00'+inttostr(i)
  else if (num>=100) and (num<1000) then
    Result:='0'+inttostr(i)
  else if (num>=1000) and (num<10000) then
    Result:=+inttostr(i);
end;