delphi4arab منتديات دلفي للعرب
HomeWork_03 تمريت تطبيقي - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : HomeWork_03 تمريت تطبيقي (/showthread.php?tid=347)

الصفحات: 1 2

HomeWork_03 تمريت تطبيقي - STRELiTZIA - 24-12-2008

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

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


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

HomeWork_03 تمريت تطبيقي - Rover - 24-12-2008

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

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

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

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

HomeWork_03 تمريت تطبيقي - STRELiTZIA - 24-12-2008

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

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

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

HomeWork_03 تمريت تطبيقي - me_delphi - 25-12-2008

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

HomeWork_03 تمريت تطبيقي - STRELiTZIA - 25-12-2008

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

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

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

HomeWork_03 تمريت تطبيقي - hanipino - 25-12-2008

إقتباس :- إصلاح الخطأ البسيط في وحدة Test.pas
على ما اعتقد يوجد String فارغ , زائد لا حاجة اليه بما نه توجد 13# Smile

HomeWork_03 تمريت تطبيقي - STRELiTZIA - 25-12-2008

إقتباس :على ما اعتقد يوجد String فارغ , زائد لا حاجة اليه بما نه توجد 13#
لا... اخي hanipino وضعته لعمل Space في MessageBox

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

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

HomeWork_03 تمريت تطبيقي - hanipino - 25-12-2008

جربتها هكدا .
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 زائد .
Smile

HomeWork_03 تمريت تطبيقي - STRELiTZIA - 25-12-2008

إقتباس :جربتها هكدا

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

HomeWork_03 تمريت تطبيقي - bo0oda - 27-12-2008

الحل نقص لم استطع ::
- استدعاء الاجرائين الموجودين في وحدة 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