delphi 子界判断的举例

本文整理自网络，侵删。

 unit Unit1; 
interface 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls; 
type 
TForm1 = class(TForm) 
Button1: TButton; 
procedure Button1Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
var 
Form1: TForm1; 
implementation 
{$R *.dfm} 
var 
i:integer; 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
i:=9; 
if i in [1..7] then //子界表达式 
showmessage('i<=7') 
else 
showmessage('9不在这个子界里面'); 
end; 
end. 

相关阅读 >>

Delphi中从windows资源管理器中拖放图片到timage控件上

Delphi区分汉字和字母的函数

Delphi版多开源码,也就是遍历系统内核对象句柄

Delphi xe5 使用 android 内置函数几个小测试

Delphi xe7的android应用设定wifi的有效无效

Delphi getfilehashmd5获取文件 hashmd5值

了解Delphi过程类型/过程类型学习

Delphi开发的app如何调用外部app

Delphi 数字签名添加器源码

Delphi 木马配置器通用写法(末尾追加数据的方法)

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 子界判断的举例