+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : **** تصحيح هذا المثال عن الاتحاد والتقاطع والفرق في المجموعات في بيئة دلفي (/showthread.php?tid=1727)
**** تصحيح هذا المثال عن الاتحاد والتقاطع والفرق في المجموعات في بيئة دلفي - moh38 - 27-02-2010
السلام عليكم
**** تصحيح هذا المثال عن الاتحاد والتقاطع والفرق في المجموعات في بيئة دلفي
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
type
x= set of 1..9;
var
a,b,c1,c2,c3 :x;
begin
// a:=[1,2,3];
// b:=[1,2,4];
a:=edit1.text;
b:=edit2.text;
//union...
c1:= a + b;
label1.caption:=c1; // c1=[1,2,3,4]
//
// intersecion...
c2:= a * b;
label2.caption:=c2; // c2=[1,2]
//
// difference...
c3:= a - b;
label3.caption:=c3; // c3=[3]
end;
**** تصحيح هذا المثال عن الاتحاد والتقاطع والفرق في المجموعات في بيئة دلفي - TF6M - 27-02-2010
و عليكم السلام ورحمة الله و بركاته
هذا مثال آخر للتوضيح ....
PHP كود :
[0..4,6] + [5] = [0..6] // union...
[1..5] - [2,5] = [1,3,4] // difference...
[1..4,6] * [3..9] = [3,4,6] // intersecion...
مثال عملي :
PHP كود :
Type
Tmembers = (TF6M,moh38,Goblin,chehrour,STRELiTZIA,ALMOB4RM3G,kachwahed,BMAbdelAziZ);
GMemb = Set Of Tmembers;
Var
AllMemb: GMemb;
Const
Memb = [TF6M,moh38,Goblin,chehrour];
begin
AllMemb := AllMemb * Memb; // Members
AllMemb:= AllMemb - Memb; // Gold Members
AllMemb:= AllMemb + Memb // Delphi4Arab
end;
:bleh: بالتوفيق ,,
**** تصحيح هذا المثال عن الاتحاد والتقاطع والفرق في المجموعات في بيئة دلفي - kachwahed - 27-02-2010
PHP كود :
DiamondMemb := Memb - [moh38,Goblin,chehrour];
**** تصحيح هذا المثال عن الاتحاد والتقاطع والفرق في المجموعات في بيئة دلفي - moh38 - 27-02-2010
جزى الله خيرا الاخوة على هذا التوضيح
المشكلة هي كيف نقوم باظهار النتيجة في label1 و label 2 و label3
لقد جربت strtoint و غيرها فلم تنجح
بتوضيح اكثر كيف نحول من set الى string
وشكرا
**** تصحيح هذا المثال عن الاتحاد والتقاطع والفرق في المجموعات في بيئة دلفي - TF6M - 27-02-2010
أخي moh38 يمكنك أن تفهم ان التعامل مع الـ Enum (نوع من الأنماط :: Type énumérés)
على أساس ترتيبها (Ord) في تعريف النمط (Type) , لاحظ هدا المثال :wacko: :
PHP كود :
Type
Tcolor = (Red,Black,White,Green);
Var
Color: Tcolor;
begin
Color:= Low(Tcolor);
ShowMessage(IntToStr(Ord(Color)));
Inc(Color);
ShowMessage(IntToStr(Ord(Color)));
Dec(Color);
ShowMessage(IntToStr(Ord(Color)));
end;
نقوم بكتابة دالة بسيطة ترجع الـ String المكافئ للـ Ord المقابل له في TColor
PHP كود :
Type
Tcolor = (Red,Black,White,Green);
Function Enum2Str(MyColor : Tcolor):String;
begin
case MyColor of
Green : Result:='Green';
White : Result:='White';
Red : Result:='Red';
Black : Result:='Black';
end;
end;
PHP كود :
Var
Color: Tcolor;
begin
Color := Tcolor(2);//White
case Color of
Tcolor(0):
ShowMessage(Enum2Str(Color));
Tcolor(1):
ShowMessage(Enum2Str(Color));
Tcolor(2):
ShowMessage(Enum2Str(Color));
Tcolor(3):
ShowMessage(Enum2Str(Color));
end;
end;
أ ر جـ و ا أن تكون الفكرة قد وصلت .. بالتوفيق ,,
**** تصحيح هذا المثال عن الاتحاد والتقاطع والفرق في المجموعات في بيئة دلفي - kachwahed - 27-02-2010
يمكن الاستعانة بالتابع GetEnumName من المكتبة TypInfo
مثال:
PHP كود :
uses
TypInfo;
Type
TMembers = (TF6M, moh38,kachwahed);
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetEnumName(TypeInfo(TMembers), 1))
end;