VariantsHelper.pas

VariantsHelper.pas

unit VariantsHelper;

interface

type
  TVariantsHelper = record helper for variants
    function ValueInRange(const ARange: array of Variant): Boolean;
  end;

implementation

function TvariantsHelper.VelueInRange(const ARange: array of Variant): Boolean;
var I: Integer;
begin
  Result := False;
  for I := Low(ARange) to High(ARange) do
  begin
    if  ARange[I] = Self then
    begin
      Result := True;
      Exit;
    end;
  end;
end;
  
end.