Delphi学习手记——控制文本框输入的字符类型

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (pos('.',Edit1.Text)>0) and (Key='.') then               //控制文本框内只能输入一个小数点
  begin
    Key:=#0;
    exit;
  end;
  if not (Key in ['0'..'9','.',#8]) then                             //控制文本框内只能输入≥0的实数
    Key:=#0;
end;