小问题，请帮忙！在线给分！（急）

Question

如何判断eidt文本框中输入的是不是float类型的数据

Answer 1

try
strtofloat(edit.text);
except
showmessage('不是有效的浮点型直');
end;

Answer 2

procedure TForm1.Button4Click(Sender: TObject);
var
  s:string;
  i,j:integer;
begin
  s:=form1.Edit1.Text;
  if pos('.',form1.Edit1.Text)>0 then
  begin
    i:=length(s);
    for j:=0 to i-1 do
      begin
        if s[j]='.' then
        begin
          if j>1 then
            showmessage('true');
        end;
      end;
  end;
end;
//确保edit1中只能输入数字、'.'、和退格键
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8,'.']) then
  begin
    key:=#0;
    messagebeep(1);
  end;
end;

Answer 3

try
strtofloat(edit.text);
except
showmessage('不是有效的浮点型直');
end;
照抄就可以了

Answer 4

如果用 dabaicai(菜鸟)的方法，需要把编译开关“Stop on language exception”关上

Answer 5

同意 Randy_Mic(生于70年代) 
有问题请发信息到我的E-mail:[email protected]