如何将1表示为0001。在线等待

如题

解决方案 »

  1.   

    ShowMessage(RightStr((IntToStr(Eidt1.Text) + '000'), 4));
      

  2.   

    function FillStr(str:string;leng:integer;)
    begin
      While Length(str)<leng do
      begin
        str:='0'+str;
      end;
      Result:=str;
    end;第一个参数是你传过来的数值,先转为string类型再传,第二个参数是长度.
      

  3.   

    谢谢！var
     ledno:integer;Ledno:=0001,ledno最后还是一个int型的，这个不能变啊
      

  4.   

    var
       tmpstr:string;
    begin
       tmpstr:=formatfloat('0000',1);
    end;运行结果： tmpstr='0001';
      

  5.   

    谢谢各位！但我要的还是int型的阿
      

  6.   

    首先在int类型在Win32环境下是四字节不是双字节,其次...你最好从头学习一点点计算机方面的常识,这个有好处,至少不会有这种问题了
      

  7.   

    你只能让它显示为‘0001’，如果你非要让他也是Integer类型的，那在Delphi里是不支持的。她会把你前面的‘000’自动去掉。你可以定义一个Integer类型的变量，用的时候用它，显示的时候判断一下，如果比你要求的长度短的话就自动在前面加‘n’个0。（n：和你要求的长度相差的位数）
      

  8.   

    楼上的又错了,用int储存1在计算机中的表示是0x0001,0是绝对不能去掉的,因为储存空间定长,前面必须补上0.我们看到的不管是'1'还是'0001',这种显示给我们看到的东西实际上都已经是字符了,学过汇编没有?调用中断显示一个数字首先要做的就是把它转成字符这种问题和开发工具,语言什么的毫无关系
      

  9.   

    看你的 1 -> 0001 有什么用途??int I := $0001;