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判断字符是否是汉字

学习使用Delphi for android 调用java类库

Delphi android 按包名判断是否安装了app

Delphi xe5 实现获取本地的ip地址

Delphi用mapfileandchecksum 函数检测 exe 或 dll 是否被修改

Delphi 如何在stringgrid中嵌入控件，如按钮等等

Delphi cxdbtreelist1判断当父节点含有子节点时 不能删除此父节点

decodedatetime：将一个tdatetime变量拆分成它的日期/时间 部分

Delphi获取内存及cpu信息的函数

Delphi 不用控件用函数实现发email

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

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