27-02-2010, 10:17 AM
السلام عليكم
**** تصحيح هذا المثال عن الاتحاد والتقاطع والفرق في المجموعات في بيئة دلفي
واليكم المثال في المرفقات وجزاكم الله خيرا
**** تصحيح هذا المثال عن الاتحاد والتقاطع والفرق في المجموعات في بيئة دلفي
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;