HomeWork_03 تمريت تطبيقي

[STRELiTZIA]

بسم الله الرحمن الرحيم
تكملة للدرس الإجراءات و الدوال إليكم إخواني التمرين التطبيقي رقم : 03

المطلوب : استعمال الوحدتين المرفقتين في مشروعين مستقلين.
1- استعمال وحدة MD5.pas لعمل هاش للملفات و هاش للكلمات و الجمل.
2- استدعاء الاجرائين الموجودين في وحدة Test.pas
3- إصلاح الخطأ البسيط في وحدة Test.pas :D


بالتوفيق إن شاء الله

[Rover]

الحل في المرفقات

تم ارسال السري على الخاص

أعذرني أخي Strelitzia عملتهم مشروع واحد لأنقاص الحجم ...

الباس للمرفقات هو : 113388

[STRELiTZIA]

الحل في المرفقات

حل صحيح و جميل جدا اخي روفر... في مستوى اخواني من الشام :) كما عهدتهم :)

في انتظار حلول الاخوة الأعضاء..

بالتوفيق ان شاء الله

[me&delphi]

هدا حلي أخي الكريم أتمنى أن أكون موفقا

[STRELiTZIA]

هدا حلي أخي الكريم أتمنى أن أكون موفقا


حل صحيح اخي me&delphi :)
هيا نريد حلول اخرى...

بالتوفيق ان شاء الله

[hanipino]

- إصلاح الخطأ البسيط في وحدة Test.pas

على ما اعتقد يوجد String فارغ , زائد لا حاجة اليه بما نه توجد 13# :)

[STRELiTZIA]

على ما اعتقد يوجد String فارغ , زائد لا حاجة اليه بما نه توجد 13#

لا... اخي hanipino وضعته لعمل Space في MessageBox

هل جربت استعمال الوحدة ؟ جرب و اخبرني :)

بالتوفيق ان شاء الله

[hanipino]

جربتها هكدا .

MessageBox(Form1.Handle, PChar('HomeWork_03'#13
+ 'Good job delphi Coder'#13
+ #13 //'---------------> ما دوره هنا :) '
+ 'Delphi 4 Arab'#13
+ 'STRELiTZIA | AT4RE'#13
+ 'www.delphi4arab.com'), Pchar('Hello'), MB_OK);



MessageBox(Form1.Handle, PChar('HomeWork_03'#13
+ 'Good job delphi Coder'#13
+ ''#13 '<---- #13 وحدها يمكن عمل فراغ'
+ 'Delphi 4 Arab'#13
+ 'STRELiTZIA | AT4RE'#13
+ 'www.delphi4arab.com'), Pchar('Hello'), MB_OK);
Main.Caption := 'MD5 Hashing';

لا يوجد فرق بينهما سوى String زائد .
:)

[STRELiTZIA]

جربتها هكدا


لا ليس هنا...
اقصد تجريب استدعاء الاجراءات التي تحتويها الوحدة في مشروعك

[bo0oda]

الحل نقص لم استطع ::
- استدعاء الاجرائين الموجودين في وحدة Test.pas
3- إصلاح الخطأ البسيط في وحدة Test.pas
بسب رساله خطاء منش عارف اتخلص :mad:
الخطاء [Error] Test.pas(16): Undeclared identifier: 'MessageBox'
[Error] Test.pas(16): Undeclared identifier: 'Main'
[Error] Test.pas(16): 'END' expected but ',' found
[Error] Test.pas(33): Undeclared identifier: 'MessageBox'
[Error] Test.pas(33): Undeclared identifier: 'Main'
[Error] Test.pas(33): 'END' expected but ',' found

[STRELiTZIA]

MessageBox

هنا يكمن لب الموضوع... لماذا لم يستطيع دلفي معرفة MessageBox ؟
هل يجب اضافة شئ في قائمة الــ Uses :) اولا ؟

بالتوفيق ان شاء الله

[bo0oda]

الخطاء البسيط فى وحدة Test.pas هو فى الuses
انت مش محتاج وحدة Messages فى لان داله MessageBox
موجوده فى وحدة Windows
يارب يكون صحيح

[Dr.MOT]

السلام عليكم ,,

جزاك الله كل خير ,,

تمرين مفيد جدا !

ورائع رائع رائع بكل ما تعنيه الكلمه من معنى



تطبيقي في المرفقات :d

[STRELiTZIA]

و عليكم السلام و رحمة الله
اخواني : bo0oda و Dr.MOT

حلول صحيحة :)

بالتوفيق ان شاء الله للبقية

[paix144]

السلام عليكم
بارك الله فيك آخي STRELiTZIA
و هذا هو تطبيقي