delphi 7 怎么用if else 语句
procedure TForm1.btn1Click(Sender: TObject);
begin
if edt1.Text<>'' then
begin
if edt1.Text then
begin
qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Add('select * from busstation where busid ='+ edt1.Text);
qry1.Open;
end ;
end
else
ShowMessage('您需要输入一个公交线路');
end;
以上是在edt1.text非空的条件下运行的 如何加一个if then 语句 给限制一下，来划定二edt1.text的取值范围，如20，22，23，24 四个数字之间取值。如果取值不是这四个数，就不调用数据库，显示对话框提示。
谢谢大家，会的帮个忙
if (StrToInt(edt1.Text)=20) or (StrToInt(edt1.Text)=22) or (StrToInt(edt1.Text)=23) or (StrToInt(edt1.Text)=24) then
稍微聪明点的办法:
if (StrToInt(edt1.Text)>=20) and (StrToInt(edt1.Text)<=24) and (StrToInt(edt1.Text)!=21) then
最好的办法:
if StrToInt(edt1.Text) in [20,22,23,24] then本回答被提问者采纳
delphi7中IF ELSE语句
首先 Delphi 里 Begin end; 是 c++里的{}，就是将 begin~ end； 里的内容视为一个团，满足条件是会执行 begin end 内的内容 若只需执行一行代码 begin end 可以省略。好了接下来 1. IF（条件）then （执行内容);2. IF (条件） then begin (执行内容1);(执行内容2);end;3. IF (条...
delphi 7 怎么用if else 语句
if StrToInt(edt1.Text) in [20,22,23,24] then
在delphi中如何使用if else
if <逻辑表达式> then <语句1>;if <逻辑表达式> then <语句1> else <语句2> ;if <逻辑表达式> then begin <语句块1> end;if <逻辑表达式> then begin <语句块1> end else begin <语句块2> end 就是当逻辑表达式的值为真时，执行语句1或语句块1（内中可有若干语句）；当逻辑表达式的...
delphi7中IF语句的使用
if StrToInt(Edit6.Text) > 5 then begin MessageDlg('<'+Edit3.Text+'>已达到借阅上限',mtError,[mbok],0); end else begin try with ADOQuery1 do begin sql.Clear; sql.Add('insert into Lend(Code,ReaderID,OutDate)'+ 'values(:Code,:ReaderID,:OutDate...
Delphi7的if else语句问题
if i = 1 then begin end else if (i > 1 ) and (i < 3) then begin end else if (i > 3) and (i < 7) then begin end;Delphi 的语法其实是很简单的，用多了那就会觉得c++难写了
Delphi7中在下面这段代码中,我想要添加实现下面几个功能。请大家帮我...
if语句只对其下的一行有作用，之后的代码无论if语句怎样都会执行，应该加上begin...end;if 条件 then begin end;整个代码修改如下：procedure TForm1.Button1Click(Sender: TObject);begin if(edit1.text='6')or (edit1.text='7')then begin \/\/增加内容 edit2.Text:='今天是休息日，工作...
delphi if 用法
1、IF.. THEN if 1=1 then begin\/\/这里写执行语句 end;2、IF..ELSE if 1=1 then begin ...end \/\/记住这里不能加分号。else begin ...end; \/\/这里需要加分号 3、IF...ELSE IF..if 1=1 then begin ...end \/\/记住这里不能加分号。else IF 1=2 THEN begin ...end; \/\/这里...
delphi7.0编译出现问题,请高手们指导一下
把代码贴出来吧，估计你的else语法错误要么是 then和else中间有多个语句却没有用begin。。end，要么是else前面的最后一句后面有；号，这是新手常见的错误。至于出来结果与预想不一样，一般是程序设计的逻辑错误，好好再查查代码，不行的话，画画流程图吧 ...
C语言If if 。。 else if 。。 else if 。。 如何在delphi中实现...
procedure TForm1.Button1Click(Sender: TObject);var a:integer;begin a:=strtoint(Edit1.text);if a>0 THEN showmessage('A>0')else if a<0 THEN showmessage('A<0')else if(A = 0) THEN showmessage('A=0');end;
关于delphi中if里嵌套if的问题
if...else..end;这是if语句标准格式；就是说if只是判断“是”或“否”。大白话就是说：声明了一个变量，并赋于一个值，这个值是否是你想要的值，只有两种可能性，是你要的值或不是。所以if 后面必然只有一个else。如果有多个结果的话，建议你还是用case吧。
