باستخدام وحدات الماكرو في Delphi ، يمكن أن تقوم ببعض المهام البسيطة للغاية.
يبدأ الماكرو بـ Ctrl + Shift + R ، وينتهي بـ Ctrl + Shift + R ، ويلعب مع Ctrl + Shift + P.
بعد البدء في تسجيل الماكرو ، يمكنك رؤية عبارة "تسجيل" في شريط الحالة.
فيما يلي مثال على التعيين
على النحو التالي ، هناك الكثير من المتغيرات في فصلنا
DNO: سلسلة [20] ؛
dworker: سلسلة [4] ؛
ddate: tdatetime ؛
dtrade_s: سلسلة [10] ؛
dtrade_e: سلسلة [10] ؛
dmoney_sale: حقيقي ؛
dmoney_last: حقيقي ؛
dmoney_ss: حقيقي ؛
DMAN: سلسلة [2]
Dmoney_SK: Real ؛
Dmoney_zl: حقيقي
Money_mode: حقيقي ؛
Ticket_mode: حقيقي ؛
CZK_MOD
MZK_MODE: مبلغ دفع بطاقة ما قبل القيمة
bank_mode: مبلغ دفع بطاقة البنك الحقيقية
dcard_zk: سلسلة [20] ؛
DCARD_HL: سلسلة [20] ؛
dsubshop: سلسلة [4] ؛
Dsalesman: سلسلة [4] ؛
نريد تعيين قيمتها بالقيمة المقابلة لكائن Asource في التعيين ، على النحو التالي.
على سبيل المثال:
الإجراءات tmasterdata.AssignValue (asource: tmasterdata) ؛
يبدأ
// أريد الحصول على النتائج التالية
DNO: = asource.dno ؛
dworker: = asource.dworker ؛
ddate: = asource.ddate ؛
dtrade_s: = asource.dtrade_s ؛
dtrade_e: = asource.dtrade_e ؛
dmoney_sale: = asource.dmoney_sale ؛
dmoney_last: = asource.dmoney_last ؛
ماذا يجب أن نفعل؟
الإجراءات tmasterdata.AssignValue (asource: tmasterdata) ؛
يبدأ
DNO: سلسلة [20] ؛
dworker: سلسلة [4] ؛
ddate: tdatetime ؛
dtrade_s: سلسلة [10] ؛
dtrade_e: سلسلة [10] ؛
dmoney_sale: حقيقي ؛
dmoney_last: حقيقي ؛
....
في هذا الوقت ، نركز أولاً على بداية خط DNO ، اضغط على Ctrl + Shift + R للبدء في التسجيل ، ثم اضغط على Ctrl + -> سهم ، سينتقل المؤشر إلى مكتب الاستقبال لكلمة DNO ، ثم اضغط على Ctrl + shift + -> سيتم اختيار DNO: في هذا القسم ، ما الذي يجب أن أفعله إذا كان هناك حرفين إضافيين؟ -> السهم ثم اضغط على <-arrow: قبل ذلك ، ثم أدخل: = Asource. والثاني: قبل ذلك ، نقوم بمسح الأحرف التالية ، واضغط على SHIFT + END ، ثم اضغط على مفتاح الحذف ، بحيث يتم الانتهاء من العمود الأول. ، ثم اضغط على زر الصفحة الرئيسية.
هذا هو كل مفاتيحنا.
إذا كنا على دراية كبيرة بلعشات دلفي ، فيمكننا القيام بالكثير من الأشياء الرائعة ، كما هو الحال في MSSQL في كثير من الأحيان
تحديث مجموعة dnum = b.dnum يمكن إنجازها بالكامل باستخدام وحدات الماكرو Delphi.
النقاط الرئيسية لتسجيل وحدات الماكرو ،
1 تأكد من الانتباه إلى قواعد رمز الكتابة الأنيقة
2 استخدم Ctrl + Shift + -> الأسهم لتحديد الكلمات
3 يجب إكمال جميع العمليات باستخدام لوحة المفاتيح
DNO: = asource.dno