我想对数据输入进行格式化 代码如下:
 procedure Trorm1.Edit1Exit(Sender:TObject);
  begin
   edit1.text:=format('%8.6',[strtofloat(edit1.text)]);
  end;
  我在Edit1中输入数据后,只要一离开 数据就没有 怎么会这样
 是我使用方法有错吗