关于delphi的基础问题

『悒§子』

各位，不好意思打扰了，我是个零基础的爱好者，我想请教下再学习甲鱼的视频中遇到的几个问题。
1、屏幕保户中，如何输入完密码后，敲击回车即可解锁呢？
2、我有三个密码，如何定义不属于多个条件的？我写(Trim(cbb1.Text ) not in （'aaa','bbb','ccc'）)会报错呢。
是不是不能用 not in啊？

aminghanhua

1、在Form的OnKeyPress中写代码

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if edit1.text='密码' then
begin
if Key=#13 then
Application.Terminate;//do something
end；
end;

2、不知道你说的啥意思

『悒§子』

哥哥们帮助下新人好么。。。。。

『悒§子』

aminghanhua 发表于 2013-6-26 09:49

                               
登录/注册后可看大图

1、在Form的OnKeyPress中写代码2、不知道你说的啥意思

先谢谢您，第二个问题是，如果我想做个判断，让这个值不包含要怎么写，我在sql里是写not in，那delphi是什么呢？delphi的包含是in，那in 相反的是啥啊？

aminghanhua

我也说不太好
拿按键来说
如果在就用  if key in['0'..'9',#8] then
如果不在就用if not (key in['0'..'9',#8]) then

『悒§子』

aminghanhua 发表于 2013-6-26 11:05

                               
登录/注册后可看大图

我也说不太好
拿按键来说
如果在就用  if key in['0'..'9',#8] then

  if  not [cbb1.Text in ['管理员''营业员''财务']]then    这句话要怎么写呢？

波波维奇

学习了···················

11年__那些事儿

你看看集合类型。in是集合类型的运算符。
集合类型里面只能用顺序型的数据