+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما هو عمل ال xor في دلفي (/showthread.php?tid=2748)
ما هو عمل ال xor في دلفي - مبرمج هاوي - 01-02-2011
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ال xor ما وظيفته بالتحديد وفي ماذا يستخدم ؟
ما هو عمل ال xor في دلفي - TF6M - 01-02-2011
و عليكم السلام و رحمة الله و بركاته
XOR :
- عملية منطقية .
- A Xor B = AB` @ A`B بمعنى :
0xor0 = 0
0xor1 = 1
1xor0 = 1
1xor1 = 0
- مثال , نحول القيم إلى قيم ثنائية Bin
كود :
10 xor 5 = ?5 = (0101)i
إذن نتيجة العملية السابقة 1111 = 15=F
0xor1 = 1
1xor0 = 1
0xor1 = 1
1xor0 = 1
- تستعمل غالبا لعملية التصفير , Eax Xor Eax .
بالتوفيق,,
ما هو عمل ال xor في دلفي - مبرمج هاوي - 01-02-2011
جزاك الله خير يالغالي
فهمت الى الان 50% من نظرتي الاولى للموضوع
جاري التدقيق أكثر
اسئل الله ان يزيدك بسطه في العلم وان يفتح عليك ابواب الرزق والرحمة والمغفرة
ما هو عمل ال xor في دلفي - kachwahed - 01-02-2011
أيضا يمكن استخدامها لفحص قيم منطقية (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بالتوفيق.