delphi4arab منتديات دلفي للعرب

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

و عليكم السلام و رحمة الله و بركاته
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 .
بالتوفيق,,

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

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

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

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

أيضا يمكن استخدامها لفحص قيم منطقية (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

بالتوفيق.

مبرمج هاوي

TF6M

مبرمج هاوي

kachwahed