高手们!怎么做才不让Edit文件框输入二个小数点啊!很急,在线!

Question

高手们!怎么做才不让Edit文件框输入二个小数点啊!很急,在线!

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key='.') and boolean(pos('.',edit1.Text)) then   key:=#0;
end;

Answer 2

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    if Key=('.') then
    begin
        if Pos('.',Edit2.Text)>0 then
            Key:=#0;
    end;
end;

Answer 3

楼主想让输入的能转换成浮点数吧，这样更好，都不用判断字符了。
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    try
        StrToFloat(Edit2.Text+Key);
    except
        Key:=#0;
    end;
end;