عشر نصائح للبرمجة باستخدام لغة دلفي

باعتبارها لغة برمجة جديدة لنظام التشغيل Windows، فقد قامت دلفي

يتم دمج العديد من الميزات الممتازة في واحد، لذلك فهو يحظى بشعبية متزايدة بين المبرمجين والمبرمجين.

يفضله عشاق الموسيقى. تغطي التقنيات العشرة التالية نطاقًا واسعًا من المجالات، وآمل أن تتمكن من ذلك

يكفي أن يكون مفيدًا لعشاق دلفي.

1. مشابه لـ vb. تعمل الأحداث في.

قد تجد أنه لا يوجد ما يعادل vb في دلفي. دويف في

ents، لذلك في بعض الأحيان لن نتمكن من جعل Windows يستجيب كثيرًا

أحداث متزامنة. في الواقع، في كائن تطبيق دلفي

يتضمن طريقة مشابهة: PROcessMessage، يمكنك الاتصال بها

استخدام التطبيق. ProcessMessage لإكمال مثل vb. حمامة في

الإقليم الشمالي نفس الوظيفة.

2. اتصل بـ NetscapeNavigator في دلفي.

مع شهرة الإنترنت، هل فكرت يومًا في استخدامها في برنامج دلفي الخاص بك؟

قم بتشغيل متصفح Netscape واعرض الصفحة الرئيسية لعنوان WWW الذي حددته.

. يمكن للبرنامج التالي إنجاز هذه الوظيفة.

this.programNetscape;

this.usesDDEMan;

الإجراءGo؟؟toURL(sURL: string);

فار

dde:TDDEClientConv;

يبدأ

dde: ΚTDDEClientConv. إنشاء (لا شيء)؛

com.withddedo

يبدأ

// تحديد موقع نتسكيب. إملف تنفيذى

تطبيق الخدمة: Κ′c: ιns32ιprogramιne

تسكيب. إملف تنفيذى'؛

//تنشيطNetscapeNavigator

SetLink('Netscape', 'WWW-Activate');

طلب البيانات(′0xFFFFFFFF′);

//gotothespecifiedURL

SetLink('Netscape', 'WWW-OpenURL');

طلب البيانات(sURL+′,,0xFFFFFFFF,0x3,,,

′)؛

كلوزلينك;

نهاية؛

dde. حر؛

نهاية؛

يبدأ

GotoURL('http://www.yahoo.com/');

نهاية.

3. إخراج عدد صحيح منسق.

سوف تبدو الأرقام الأكبر صعبة القراءة عند الإخراج في دلفي

يعد عرض الأرقام مع علامات القسم أمرًا بسيطًا إلى حد ما، كما يلي: xx

xxx. تسمية توضيحية: ΚFormatFloat('#', 524667500).

4. احصل على تلميحات في وقت الترجمة.

في Delphi2.0، عند الترجمة، يمكنك أن تطلب من المترجم أن يخبرك ببعض الأمور

نصائح، مثل المتغيرات التي تم الإعلان عنها ولكن لم يتم استخدامها مطلقًا. نحن نعلم

نعم، يمكنك التحكم فيما إذا كنت تريد أن تقوم دلفي بذلك من خلال الخيارات الموجودة في القائمة.

ولكن إذا كان ذلك بسبب بعض الاحتياجات الخاصة، فستحتاج إليها فقط في مقطع الكود المحدد.

ماذا علي أن أفعل إذا تلقيت مطالبة مثل lphi؟ يرجى الرجوع إلى الإجراءات التالية.

{$هينتون}

الإجراءTform1. Button1 انقر (المرسل: TObject

);

فار

X: عدد صحيح؛

يبدأ

نهاية؛

{$HINTOFF}

5. تغيير خلفية Windows95.

يمكنك تغيير خلفية الشاشة بسهولة في دلفي، يرجى الرجوع إلى ما يلي

برنامج.

this.processChangeIt;

فار

Reg:TregIniFile;

يبدأ

Reg:ΚTRegIniFile. إنشاء ("لوحة التحكم")

;

ريج. WriteString ("سطح المكتب"، "ورق الحائط"،

′c: ιpwin95ιfor??est． bmp');

ريج. WriteString('سطح المكتب', 'TileWallpaper

′،′1′)؛

ريج. حر؛

معلومات معلمات النظام (SPI-SETDESKWALLPAPER، 0

، لا شيء، SPIF-SENDWININICHANGE)؛

نهاية؛

6. احصل على تاريخ آخر استخدام للملف.

هناك ميزة جديدة في Win95، وهي الوصول إلى الملفات

الموعد الأخير. ويعتمد على ذلك برنامج CleanSweapforWin95 الشهير

تُستخدم هذه الوظيفة كأحد الأسس لتحديد ما إذا كان يتم الوصول إلى الملف بشكل متكرر أم لا.

في دلفي يمكننا تحقيق هذه الوظيفة من خلال البرنامج التالي.

functionGetFileLastaccessTime(sFileName:stri

نانوغرام):TDate??الوقت؛

فار

ffd:TWin32FindData;

دفت:دوورد؛

lft:TFileTime;

ح: المقبض؛

يبدأ

//getfileinformation

ح: ΚWindows. FindFirstFile(PChar(sFileName

)، تمويل التنمية)؛

إذا (INVALID―HANDLE―VALUEΙΛh) إذن

يبدأ

// نحن نبحث عن ملف واحد فقط، socloSE Our ″ f

إنديانا ″

ويندوز. FindClose(h);

//تحويلFILETIMEإلىlocalFILETIME

FileTimeToLocalFileTime(ffd.ftLastAccessTime

،لفت)؛

//تحويلFILETIMEإلىDOStime

FileTimeToDosDateTime(lft,LongRec(dft).Hi

، لونج ريك (دفت). لو)؛

//أخيرًا، تحويل DOStimetoTDateTimeforusein

وظائف التاريخ/الوقت الأصلية في دلفي

النتيجة: ΚFileDateToDateTime(dft);

نهاية؛

نهاية؛

سوف يستخدم GetFileLastAccessTime() دلفي TdateTi

يقوم تنسيق me بإرجاع تاريخ الوصول الأخير للملف الذي تحدده.

7. تسميات ملونة.

لم نعد راضين عن العلامات البسيطة التي توفرها شركة Delphi Can we

هناك خطوط مختلفة وألوان مختلفة في الملصقات لإثرائنا

القدرة على الأداء. الجواب هو نعم، ولا حاجة للتحكم من قبل طرف ثالث

البرنامج، نحتاج فقط إلى استخدام برنامج TRichEdit الذي توفره شركة دلفي نفسها بذكاء

هذا كل شيء. قم أولاً بإزالة حد عنصر التحكم TRichEdit: RichEd??it1

. BorderStyle: ΚbsNone أيضًا قم بتعيين سمة القراءة فقط على true: Rich

إد؟؟it1. ReadOnly: ΚTrue، إذًا تستخدم الكتابة أو ما شابه

بعد أن يقوم البرنامج بإنشاء نص بتنسيق RichText، يمكنك عرضه من خلال العبارة التالية

يظهر:

تحرير غني1. نص عادي: ΚFalse؛

تحرير غني1. خطوط. LoadFromFile('c: ιtest.r

tf′);

8. كيفية منع Win95 من عرض الأخطاء الجسيمة.

بغض النظر عن عدد المرات التي تقوم فيها بتصحيح أخطاء برنامجك، بعد تسليمه إلى المستخدم، سيكون هناك دائمًا

قد تحدث أخطاء غير متوقعة كيفية منع Win95 من العرض باللون الأبيض

ماذا عن النوافذ التي تخبر المستخدمين بحدوث خطأ محرج وغير متوقع؟ نستطيع

افعل هذا:

فار

wOldError؟؟ الوضع: كلمة؛

يبدأ

// Tellwin??dowstoignoreticalerrorsandsave

cur??renterrormode

wOldError??الوضع: ΚSetEr??rorMode (SEM-FAILCR

ITI؟؟CALERRORS)؛

يحاول

// الكود الذي قد يولد خطأ حرجgoesher

ه. . .

أخيراً

// العودة إلى وضع الخطأ السابق

SetErrorMode(wOldErrorMode);

نهاية؛

نهاية؛

استخدم SetErrorMode() بشكل أساسي لإكمال هذه الوظيفة.

9. الكائن الذي تم النقر عليه للتو بالماوس.

في Win95، يلعب الزر الأيمن للماوس دورا كبيرا، ولكن

لأسباب تاريخية، لا يزال استخدام النقر بزر الماوس الأيمن صعبًا حتى في دلفي.

ليس فعالاً بما فيه الكفاية، يمكن للبرنامج التالي أن يخبرك بكيفية معرفة متى قمت بالنقر بزر الماوس الأيمن

اسم الكائن. قم أولاً بإنشاء قائمة منبثقة، ومن ثم يمكن استخدام الكود التالي

لإخبارك باسم الكائن الذي قمت بالنقر فوقه بزر الماوس الأيمن: Popup??Menu1. PopupCom

عنصر. اسم الفئة.

10. تحقق مما إذا كان قد تم تغيير القرص المضغوط أو الأقراص الأخرى.

إن أبسط طريقة للتحقق مما إذا كان قد تم تغيير القرص المضغوط أو القرص

هو التحقق من رقم حجمه. يمكنك ببساطة استخدام الوظيفة التالية للعودة

قم بإرجاع رقم سلسلة وحدة التخزين الخاصة بالقرص GetDiskVolSerialID ('E')،

رمز الوظيفة كما يلي:

functionGetDiskVolSerialID(cDriveName: char)

:DWord;

فار

dwTemp1، dwTemp2: DWord؛

يبدأ

GetVolumeInformation(PChar(cDriveName+′:

ι')،

لا شيء،

0,

النتيجة،

dwTemp2,

dwTemp2,

لا شيء،

0)؛

نهاية؛