帮帮忙,delphi中in怎么用......(100分)

  • 主题发起人 主题发起人 whsky
  • 开始时间 开始时间
W

whsky

Unregistered / Unconfirmed
GUEST, unregistred user!
请问各位高手,在DELPHI中in的用法,如我要知道现在的时间是否在12:00:00 到13:00:00之间并将这两个时间放在数组中sj[1,0]:=12:00:00;sj[1,1]:=13:00:00
为何我用 if now in(sj[1,0],sj[1,1]) then .....却不行了
 
in是集合操作符,使用方法如下:
procedure TForm1.btn1Click(Sender: TObject);
type
TSeason = (Spr,Sum,Aut,Win);
var
aSeason: TSeason;
SeasonSet: set of TSeason;
strTmp: String;
begin
aSeason := Spr;
SeasonSet := [Spr,Sum];
case aSeason in SeasonSet of
True: strTmp := '上半年';
False: strTmp := '下半年';
end;
ShowMessage(strTmp);
end;
 
当然.....in的范围必须是有序数列.....而且长度不能超过255

找个取巧的办法
if strtoint(formatdatetime('hh',now)) in [12..13] then
//........做你要做的事
 
谢谢两位,非常感谢
 
后退
顶部