اشتراک بین دو مجموعه

[Alen]

اگر بخواهیم بین دو مجموعه از اعداد که ممکن است هر کدام بیش از هزار عضو هم داشته باشد اشتراک بگیریم یا تفاضل این دو مجموعه را بدست بیاوریم سریع ترین راه کدام است چون اگر بخواهیم عضو به عضو اعضای یک مجموعه را در مجموعه دیکر جستجو کنیم بسیار زمان بر است .
ممنمن می شوم اگر راهنمایی ام کنید . :flower:

[MSK]

به نقل از delphi help


The following operators take sets as operands.

Set operators
Operator Operation Operand types Result type Example
+ union set set Set1 + Set2
- difference set set S - T
* intersection set set S * T
<= subset set Boolean Q <= MySet
>= superset set Boolean S1 >= S2
= equality set Boolean S2 = MySet
<> inequality set Boolean MySet <> S1
in membership ordinal, set Boolean A in Set1
The following rules apply to +, -, and *.

An ordinal O is in X + Y if and only if O is in X or Y (or both). O is in X - Y if and only if O is in X but not in Y. O is in X * Y if and only if O is in both X and Y.
The result of a +, -, or * operation is of the type set of A..B, where A is the smallest ordinal value in the result set and B is the largest.

The following rules apply to <=, >=, =, <>, and in.

X <= Y is True just in case every member of X is a member of Y; Z >= W is equivalent to W <= Z. U = V is True just in case U and V contain exactly the same members; otherwise, U <> V is True.
For an ordinal O and a set S, O in S is True just in case O is a member of S.

البته ببخشید که یکم جدولش بهم ریخته!! :sorry:

ولی خوب شما برای مشاهده اصلش میتونید به هلپ دلفی 7 مراجعه کنید!
:موفق:

[Alen]

استفاده از مجموعه ها به آن صورت که مد نظر شما هست ( نوع مجموعهset of ) دو محدودیت دارد :
1- حداکثر اعضای مجموعه میتواند 256 عضو باشد (که تعداد اعضای مجموعه من ممکن است بیش از هزار عضو نیز باشد )
2- اعضای مجموعه اگر عددی باشند فقط می توانند بین 0 تا 255و از نوع صحیح باشند (و یا کاراکتری باشند)(که اعضای مجموعه من در دامنه Integer جای می گیرند)
من به خاطر این دو محدودیت نمی توانم از مجموعه ها به این صورت استفاده کنم مگر آنکه برای حل این دو مشکل راه حلی وجود داشته باشد .
با تشکر از توجه شما . :flower: