字符类型的数字到带小数点的数字
我在edit1中输入数字,我想等我输入完成了以后edit1的数字有所转换
具体例子如下
在edit1里面输入12,当edit1.foucesed=false 的时候edit1的数据变成+12.0
输入12.2变成+12.2
edit1的changge连怎么写啊

[解决办法]
比如：

procedure TForm1.Edit1Exit(Sender: TObject);
var
TmpDat: single;
begin
TmpDat := strtofloat(Edit1.Text);//自己记得作有效性判别及处理
if TmpDat < 0 then
Edit1.Text := format( '%.1f ', [TmpDat])
else
Edit1.Text := format( '+%.1f ', [TmpDat])
end;