Question

如何设置delphi中combobox数据范围

求大神帮助！
我想设置Combobox的取值范围，比如Combobox1在0~10之间，Combobox2分两段一段0~9.9可以有小数点，当超过9.9后，为整数？
怎么实现啊~~
谢谢

Answer 1

If not (Key in ['0'..'9','.',#27,#13,#8]) then
Key:=0;

这样支持0到9还有小数点，同时也支持回车、退格、ESC

追问

不行啊，key是char型，不能和整形比较啊

追答

没问题呀，我一直这么用。
我做了一个函数
//================================================================
//==========控制按键字符函数(用于文本框等只接受指定字符)==========
//================================================================
Function MyKey(SendKey:Char):Char;
begin
//限制文本框只接受相关字符
If not (SendKey in ['0'..'9','.',#27,#13,#8]) then
MyKey:=#0
Else
MyKey:=SendKey;
end;

使用时这样调用
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Key:=MyKey(Key);
end;

Answer 2

在combobox1的onkeypress事件中写代码
if not (key in [0..9]) then
key:=0;

在combobox2的onkeypress事件中写代码
if not (key in [0..9,'.']) then
key:=0;
if key='.' and strtofloat(combobox2.text)>9.9 then
key:=0;

追问

不行啊，key是char型，不能和整形比较啊

追答

在combobox1的onkeypress事件中写代码
if not (key in ['0'..'9']) then
key:=0;

在combobox2的onkeypress事件中写代码
if not (key in ['0'..'9','.']) then
key:=0;
if key='.' and strtofloat(combobox2.text)>9.9 then
key:=0;