支持,对这种0-$FFFF存在与否的查询,用Boolean数组是最快的,生成随机数的时候,把对应的位置设置成True,查询的时候只需要检查对应的值是否是True就知道是否有了 bList : array [0..$FFFF] of Boolean; //初始化的时候 FillChar(bList,SizeOf(bList) , 0); //初始化 for i:=1 to ... do begin //生成多少个数 n := Random($10000); //确保范围在0-65535之内 bList[n] := True; end; 查询的时候 Function ExistsValue(wValue : WORD) : Boolean; begin Result := bList[wValue]; end;