ما هو عمل ال xor في دلفي

[مبرمج هاوي]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ال xor ما وظيفته بالتحديد وفي ماذا يستخدم ؟

[TF6M]

و عليكم السلام و رحمة الله و بركاته
XOR :
- عملية منطقية .
- A Xor B = AB` @ A`B بمعنى :
0xor0 = 0
0xor1 = 1
1xor0 = 1
1xor1 = 0

- مثال , نحول القيم إلى قيم ثنائية Bin

كود :

10 xor 5 = ?

10 = (1010)i
5 = (0101)i
إذن نتيجة العملية السابقة 1111 = 15=F
0xor1 = 1
1xor0 = 1
0xor1 = 1
1xor0 = 1

- تستعمل غالبا لعملية التصفير , Eax Xor Eax .
بالتوفيق,,

[مبرمج هاوي]

جزاك الله خير يالغالي

فهمت الى الان 50% من نظرتي الاولى للموضوع

جاري التدقيق أكثر

اسئل الله ان يزيدك بسطه في العلم وان يفتح عليك ابواب الرزق والرحمة والمغفرة

[kachwahed]

أيضا يمكن استخدامها لفحص قيم منطقية (Boolean) مثال

كود :

if Table1.Active xor Query1.Active then ShowMessage('You use either Table1 or Query1, and not the both!');

كذلك تستخدم بكثرة في التشفير/الترميز:

كود :

//Author: Simon Grossenbacher procedure TForm1.Button1Click(Sender: TObject); var s: String[255]; c: array[0..255] of Byte absolute s; i: Integer; begin {encode} s := 'SwissDelphiCenter.ch'; for i := 1 to Ord(s[0]) do c[i] := 23 xor c[i]; Label1.Caption := s; {Decode} s := Label1.Caption; for i := 1 to Length(s) do s[i] := Char(23 xor Ord(c[i])); Label2.Caption := s; end;

المزيد من هنا:

كود :

http://www.delphibasics.co.uk/RTL.asp?Name=Xor

بالتوفيق.