怎么把1到9999的数字转成 4位字符串0001 0002 0003

Question

怎么把1到9999的数字转成  4位字符串，左边补0  如 0001  0002  0003 

Answer 1

var
  I: Integer;
  s: string;
begin
  for I := 1 to 999 do
  begin
    s := FormatFloat ('0000', I);
    ShowMessage(s);
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
const C = 10000;
begin
  edit1.text := RightStr(inttostr(C + 2),4);
end;

Answer 3

function get4char(i:integer):string;//i从到9999
begin
result:=format('%-4d',i);
end;

Answer 4

你是想在delphi中实现还是sql中实现

Answer 5

edit1.text := RightStr(inttostr(C + 2),4);
其中 2 可以是任何传入的数值,只需要替换即可

Answer 6

select right(10000 + 2,4)