delphi4arab منتديات دلفي للعرب

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > تمارين دلفي وحلول > HomeWork_03 تمريت تطبيقي
نسخة كاملة : HomeWork_03 تمريت تطبيقي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

STRELiTZIA

24-12-2008, 12:58 PM
بسم الله الرحمن الرحيم
تكملة للدرس الإجراءات و الدوال إليكم إخواني التمرين التطبيقي رقم : 03

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


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

Rover

24-12-2008, 06:40 PM
الحل في المرفقات

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

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

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

STRELiTZIA

24-12-2008, 07:59 PM
إقتباس :الحل في المرفقات
حل صحيح و جميل جدا اخي روفر... في مستوى اخواني من الشام Smile كما عهدتهم Smile

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

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

me_delphi

25-12-2008, 01:26 AM
هدا حلي أخي الكريم أتمنى أن أكون موفقا

STRELiTZIA

25-12-2008, 04:59 PM
إقتباس :هدا حلي أخي الكريم أتمنى أن أكون موفقا

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

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

hanipino

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

STRELiTZIA

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

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

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

hanipino

25-12-2008, 07:16 PM
جربتها هكدا .
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

STRELiTZIA

25-12-2008, 07:24 PM
إقتباس :جربتها هكدا

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

bo0oda

27-12-2008, 02:47 AM
الحل نقص لم استطع ::
- استدعاء الاجرائين الموجودين في وحدة 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
الصفحات : 1 2
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > تمارين دلفي وحلول > HomeWork_03 تمريت تطبيقي