نبذة بسيطة عن عملية تغيير الوحدات

[musvc]

بسم الله الرحمن الرحيم

[COLOR="Purple"]

من عنوان الموضوع "نبذة بسيطة عن عملية تغيير الوحدات"
فقط سأعرض بعض الأمثلة عن تغيير الوحدات لأخلق فكرة بسيطة للمبتدئين عنها..

[/COLOR]

اولا ً تغيير الـ String الى Integer :

ما هو الـ String ؟؟
[COLOR="Purple"]هو سلسلة حرفية غير منتهية الطول ( اي غير محددة ), تبدأ بـ 4 بايت و تتجه تصاعديا مع ازدياد حجم النص
يتكون من (احرف, رموز, ارقام, غيرها) لكن ليست ارقام يستطيع الشخص التعامل معها مباشرتا ً في العمليات الرياضية
لهذا نحتاج الى تحويلها الى ارقام و ليس نص رقمي, و تتم ذلك بعدة طرق اهمها هو الأجراء Val
قد يصعب على المبتدئين استخدام الأجراء, لذلك تم استدعائه من قبل دالة تعرف بـ StrToInt الموجودة في ملف SysUtils و ذلك
لتبسيط عملية تحويل النص الى رقم ( نضرا ً لكثرة استخدامه )[/COLOR]


ما هو الـ Integer ؟؟
[COLOR="Purple"]هو مجموعة من الأرقام ارقام تبدأ من رقم -2147483648 و تنتهي بـ 2147483647 و ايضا ً حجمها 4 بايت و طبعا ً لا تحتوي على فاصلة
عشرية
قد يلاحض المبتدئ وجود تشابه بين الـ Cardinal و الـ Integer, الصحيح هما متشابهان كثيرا ً من ناحية الحجم لكن الـ Cardinal
لا يحتوي على ارقام سالبة, حيث يبدأ من الـ 0 و يتنهي بـ 2147483647 ( لذلك لا تقم بأستخدامها في العمليات الحسابية التي
يقوم المستخدم بنفسه ِ بأدخال الأرقام في البرنامج )
بالرجوع الى عملية التحويل, ايضا ً يمكن تحويلها الى String (نص) بواسطة الأجراء Str
و ايضا ً قد يلاقي المبتدء صعوبة في استخدام الأجراء لذلك تم تسدعائه من قبل الدالة IntToStr الموجودة ايضا ً في ملف SysUtils
لتبسيط عملية تحويل النص الى رقم ( نضرا ً لكثرة استخدامه ايضا ً )[/COLOR]

[COLOR="DarkRed"]عدم اتبعاع هذه ِ الطرق سيواجه المستخدم العديد من الأخطأء من الـ Compiler او ربما من البرنامج بعد الـ Compile (لان الـ Compile
لا يستطيع التنبؤ عن الأحداث المستقبلية..)[/COLOR]


ثانيا ً تغيير الـ Integer الى Boolean و العكس :

[COLOR="Purple"]يعلم الجميع ان الرقمان 1 و 0 هما اساس جميع فعاليات الجهاز, و قد يعلم البعض ان 1 تشير الى الـ True اي صح
و 0 تشير الى False اي الخطأ..
يمكن تحويل الأرقام الى قيمة صواب و خطأ, لنفرض ان A هو متغير رقمي Integer و B هو متغير من نوع Boolean
و قيمة A هي 1 لنحول A الى B نكتب :[/COLOR]

كود :

B := Boolean(A);

[COLOR="Purple"]القيمة B تسكون عبارة True, لنفرض ان A كان 2 ماذا سيحدث ؟؟
ببساطة جميع القيم عدا 1 هي False , و ايضا ً عملية تحويل الـ Boolean الى Integer شبيهة لكن بالعكس[/COLOR]

كود :

A := Integer(B);

[COLOR="Purple"]ماذا يمكننا ان نستفيد من هذه ِ العمليات ؟؟
الأستفادة كبيرة جدا ً لايسما في صناعة الألعاب او بعض البرامج, لاننا نحول الـ Integer الى متغير آخر
و تذكر كلما استطعت تحول الـ Integer الى متغير آخر تستطيع الأستفادة منه لاننا ببساطة نستطيع اجراء العمليات الحسابية المختلفة عليه
وايضا ً يساخدم الـ Integer في دوال الـ API كثيرا ً لا سيما الدالة SendMessage
مثال على استخدامها في دالة EnableWindow :[/COLOR]

كود :

EnableWindow(Handle, Boolean(0));

الكود يقوم بعمل Disable للنافذة و ذلك لآننا مررنا اليه الرقم 0, اما اذا كان 1 عندها يعمل Enable للنافذة

[COLOR="Purple"]و ايضا ً مفيد جدا ً لأختصار الوقت و ايضا ً التقليل من كتابة شرط تحقق IF
بما انه اغلب قيم الريجستري هي 1 و 0, اي 1 تشير الى الصواب و 0 تشير الى الخطأ
و لدي RadioButton اريـد ان تكون مفعلة في حالة اذا كان الرقم 1 و غير مفعلة اذا كان الرقم 0
نكتب الأمر كالتالي بعد الحصول على النتيجة من الريجستري :[/COLOR]

كود :

RadioButton.Check := Boolean(A);

[COLOR="Purple"]بفرض ان A هو متغير Integer او Cardinal يحمل القيمة التي اردناها من الريجستري
[/COLOR]

ثالثا ً تمرير نص في متغير Integer :

[COLOR="Purple"]يعلم البعض ان دالة SendMessage تحتوي على lParam و wParam و كلتاهما من نوع Integer
لذلك هذا هو السؤال المهم, لماذا توجد رسائل مثل WM_SETTEXT و ليس بأمكاني ارسال نص ؟؟
نعم بلأمكان, فقط عليك تحويل الوحدات اولا ً من الـ Integer الى String لكي تستطيع تمرير نص محدد, مثال :[/COLOR]

كود :

var A: String; begin A := 'Delphi4Arab.com'; SendMessage(Handle, WM_SETTEXT, 0, Integer(A)); End;

يقوم المثال بتسمية الـ Title الخاص بالـ Form الى Delphi4Arab.com


رابعا ً تحويل الـ String الى PChar و العكس :
[COLOR="Purple"]
من المعروف ان المتغيرين يستخدمان في عملية حفض النصوص, الـ PChar يستخدم بكثرة في دوال النضام, اما الـ String
فيستخدم بكثرة ( او بشكل كلي ) في دوال و اجرائات الدلفي
طريقة التحويل بينهما سهلة جدا ً على الرغم من هذا توجد دالة StrPas في ملف SysUitls تقوم بتحويل PChar الى String
لنفرض ان A هو String و B هو PChar اذا هذه ِ هي طريقة تحويل الـ String الى PChar :[/COLOR]

كود :

A := String(B);

[COLOR="Purple"]قد يعتبرها المبتدئين شيئا ً عاديا ً لانهم اعتادوا على هذه ِ الطريقة ( مجرد اقتباس من غير معرفة السبب)
اما طريقة تحويل الـ PChar الى String فهي نفس الشيئ لكن بالعكس :[/COLOR]

كود :

B := PChar(A);

خامسا ً تحويل الـ Float الى String و العكس :

[COLOR="Purple"]الـ Float هو عبارة ان ارقام تحتوي على فاصلة عشرية, تستخدم في العمليات الحسابية الدقيقة و بكثرة في مجال الألعاب
طريقة التحويل النص String الى Float شبيهة بتحويل الـ String الى Integer لانها تتحول بنفس الدوال Val و Str
للتسهيل طبعا ً تمت عملية استدعائها في دالتين FloatToStr و StrToFloat الموجودتين في ملف SysUtils[/COLOR]

و السلام عليكم

[khiro.alg]

بارك الله فيك أخيعمل ممتاز
سؤل:
-كيف نستخدم الإجراء val؟؟؟ أهو مثل الموجود في VB6؟؟

[kachwahed]

البديل، مثل هذه:

PHP كود :

function StrToInt(const aValue: string): Integer;
var
  E: Integer;
begin
  Val(aValue, Result, E);
end;

function IntToStr(const aValue: Integer): string;
begin
  Str(aValue, Result);
end; 


[TF6M]

بارك الله فيك أخيعمل ممتاز
سؤل:
-كيف نستخدم الإجراء val؟؟؟ أهو مثل الموجود في VB6؟؟

الإجراء Val , لتحقق من أن القيمة الممرة للإجراء (String) قابلة للتحويل الى Integer & Float ... أم لا !
- حسب E إذا نجحت العملية = 0

كود :

[COLOR=Black][COLOR=#000000][COLOR=#0000bb]Val[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]aValue[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]Result[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]E[/COLOR][COLOR=#007700]);[/COLOR][/COLOR][/COLOR]

بالتوفيق,,