phmg.net
当前位置:首页 >> DElphi7中IF ELSE语句 >>

DElphi7中IF ELSE语句

我详细讲一下delphi里的 IF 语句吧 首先 Delphi 里 Begin end; 是 c++里的{},就是将 begin~ end; 里的内容视为一个团,满足条件是会执行 begin end 内的内容 若只需执行一行代码 begin end 可以省略。好了接下来 1. IF(条件)then (执行内容...

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++难写了

加个exit或者把不想执行的部位放到else中。if then else begin 不想执行的部分 end;

or: if后的条件只要有一个为真就执行if后的语句 例: if (11) then showmessage('Test'); //2>1为真执行 and: if后的所有条件都为真才执行if后的语句 例: if (11) then showmessage('Test'); //1

begin if (a='123') or ( a='321' ) then begin xx.xx.xx1:=false; xx.xx.xx2:=false; end else begin xx.xx.xx1:=true ; xx.xx.xx2:=true; end; end;

有,不过你这个不用goto delphi 里这样实现 假如 你前面有 procedure FirstPro; 当前 procedure CurPro; begin if 条件成立 then FirstPro;//在这里调用就可以了 ,用不到goto end;

浮点型的比较 1 if (D>=10.34) and (D

if SameStr(Edit1.Text,Edit2.Text) then //分大小写 // if SameText(Edit1.Text,Edit2.Text) then //不分大小写 //空格在比较内容之内 begin end;

procedure TForm1.ComboBox1Change(Sender: TObject); begin if (comboBox1.Text='被更高的对象或树木所包围 ') then Edit1.Text:=('0.25'); if (comboBox1.Text='被相同高度的或更矮的对象或树木所包围 ') then Edit1.Text:=('0.5'); end; end....

var n : Integer; f : Double; ...... if TryStrToInt( AString, n ) then ...... // 是整数,且存入了n if TryStrToFloat( AString, f ) then ......// 是Float,且存入了f

网站首页 | 网站地图
All rights reserved Powered by www.phmg.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com