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

最后编辑：2019-06-04

作者：第五维

这个作者貌似有点懒，什么都没有留下。

站内专栏