4-09 489
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');
Comments are closed, but trackbacks and pingbacks are open.