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

[STRELiTZIA]

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

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


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

[Rover]

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

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

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

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

[STRELiTZIA]

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

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

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

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

[me_delphi]

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

[STRELiTZIA]

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

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

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

[hanipino]

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

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

[STRELiTZIA]

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

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

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

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

[hanipino]

جربتها هكدا .

PHP كود :

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


PHP كود :

MessageBox(Form1.Handle, PChar('HomeWork_03'#13
    + 'Good job delphi Coder'#13
    + ''#13             '<---- #13 وحدها يمكن عمل فراغ'
    + 'Delphi 4 Arab'#13
    + 'STRELiTZIA | AT4RE'#13
    + 'www.delphi4arab.net'), 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