Delphi 取数据

delphi数据

解决方案 »

  1.   

    Edit1.Text := Copy(str, 1, 1) + FloatToStr(StrToFloat(Trim((Copy(str,5,1))))) + '.'+ FloatToStr(StrToFloat(Trim((Copy(str,6,1)))));
      

  2.   

    因为FloatToStr(StrToFloat(Trim((Copy(str,1,5))))) =0 ,0值无符号。所以你的值为0.2了。
    你的代码，就改为：
    如果确定Str最后一位是小数位：
      str:= '-00002';
      Str:=Copy(Str,1,length(Str)-1)+'.'+Copy(Str,length(Str),1);
      Edit1.Text := FloatToStr(StrToFloat(Str));
      

  3.   

     数据已经读取到memo里面；从memo里面去数据：如图
      如图列 -0017 我要如何得到的结果为-0.17