var ff:integer; 登录时确定一下就应该行吧,你可以试试 ff := 0; .... 错误就加一 ff:= ff+1; if ff=3 then close;
var LoginTimes:integer formshow事件里面设置 LogingTimes = 0 . buttononclick事件里面 inc(LoginTimes); .... if loginTimes = 3 then showmessage('密码输入错误三次,系统将退出'); application.Terminate;
楼上的兄弟错了定义全局变量 放在 public 里面 ff:integer;在formcreate里面初始化 ff:=0;在你的检测事件里面写 if i>=3 then begin messagebox(handle,'您的错误次数超过了系统预定值!','错误',mb_iconerror); application.Terminate; exit; end; //不知道你的正误检测代码是怎么写的哦 随便写了 if password='11' then begin .. end else ff:=ff+1;
ff:integer;
登录时确定一下就应该行吧,你可以试试
ff := 0;
....
错误就加一
ff:= ff+1;
if ff=3 then close;
formshow事件里面设置 LogingTimes = 0
.
buttononclick事件里面
inc(LoginTimes);
....
if loginTimes = 3 then
showmessage('密码输入错误三次,系统将退出');
application.Terminate;
ff:integer;在formcreate里面初始化 ff:=0;在你的检测事件里面写
if i>=3 then
begin
messagebox(handle,'您的错误次数超过了系统预定值!','错误',mb_iconerror);
application.Terminate;
exit;
end;
//不知道你的正误检测代码是怎么写的哦 随便写了
if password='11' then
begin
..
end
else
ff:=ff+1;
楼主。sunny518(灵犀) 已写的比较清楚了
请问inc是什么函数啊?