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’);

© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享