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 idsmtp控件发送邮件

我的Delphi开发经验谈

Delphi怎么样选择pagecontrol1的分页

sendmessage在结束进程上的使用

Delphi unicode转汉字 ,支持自动过滤非 unicode编码

Delphi xe 跨平台(windows、android安卓、苹果macos、苹果ios)写法

Delphi获取程序所在目录

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

firemonkey使用android的路径信息

Delphi 获取文件创建时间

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...