首页 > 开发 > Delphi中判断集合中是否在存在字符串
2016
04-09

Delphi中判断集合中是否在存在字符串

function InSet(const Values: array of Variant;Value: Variant): Boolean;
var
  i: integer;
Begin
  Result := False;
  for I := 0 to High(Values) do
  IF Values= Value Then Result := True;;
End;
 
调用实例:
IF InSet([’12’,’22’,’32’,’24’,’52’,’62’,’27’,’28’,’90’],’90’) Then Showmessage(‘True’);

最后编辑:
作者:第五维
这个作者貌似有点懒,什么都没有留下。