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 解决strtodatetime（）不是有效日期类型的问题

Delphi 最快字符串查找(匹配)算法

Delphi第三方控件通用安装方法

Delphi 关于多语言：如何获取当前系统语言

Delphi 获取硬盘序列号(ide,sata,scsi)

Delphi打开关闭光驱

Delphi读写ini文件加锁(独占)

Delphi二分查找算法(预排序数组的查找)

Delphi 获取网卡信息(支持多网卡)

Delphi中复制线程

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

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