المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : HomeWork_04 تمرين تطبيقي

B.M.AbdelAziZ
01-01-2009, 11:31 AM
بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله

التمرين التطبيقي رقم 04 لدرس الحلقات و الشروط.

المطلوب :
- عمل تطبيق مماثل للتمرين باستعمال المكون الخاص – بالــ Highlighting (http://www.delphi4arab.com/forum/attachment.php?attachmentid=411&d=1230294814) موجود في المنتدى.
- عمل تشفير مطابق للتمرين.
- إضافة زر جديد لعمل تشفير بسيط جدا و يكون من برمجتكم :D ليس صعب.

بالتوفيق ان شاء الله
hanipino
01-01-2009, 05:46 PM
السلام عليكم
لم استطع تثبيت هدا المكون . حاولت تثبيته ب DelphiPI . حاولت يدويا ... نفس الشىء
حولت فى التمرين باستعمال ListBox

فيما يخص درس البارحة . درس ممتاز . خاصتا فيما يتعلق بكيفية تتبع الحلقات ... افادتنى جدا . مشكورين
:)
بارك الله فيكم
B.M.AbdelAziZ
01-01-2009, 07:32 PM
يجب استخدام المكون لحل التمرين
يمكنك مراجعة موضوع: شرح فلاشي لتثبيت مكونات دلفي (http://www.delphi4arab.com/forum/showthread.php?t=490)
وان عجزت عن تثبيته يمكنك انشاء موضوع بقسم الاسئلة (http://www.delphi4arab.com/forum/forumdisplay.php?f=8) حول مع كتابة ماهي المشكل ورسالة الخطا
بالتوفيق
hanipino
01-01-2009, 08:36 PM
تم تثبيت المكون بنجاح بعد المحاولة الثانية .
لا نتكلم عن حجم الملف التنفيدى . الضعف اكثر من 3 مرات .
me&delphi
02-01-2009, 03:28 AM
ثبت المكون بنجاح لكن هناك خطأ في الوحدة SynEditOptionsDialog.pas

و بالتالي لم أستطع استعمال العنصر SynEditOptionsDialog1
Rover
02-01-2009, 07:57 AM
السلام عليكم ..

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

حاولت شمل جميع الحلقات .. و تقديم طرق جديدة ..
STRELiTZIA
02-01-2009, 11:00 AM
السلام عليكم و رحمة الله

رائع جدا...

اخي Hanipino : حل صحيح الله يبارك في نشاطك... حقيقتا انت في المتسوى المطلوب - و مثابرتك ترفع الرأس :)
اخي Rover :) : حل صحيح و في المستوى كالعادة.

لا نتكلم عن حجم الملف التنفيدى . الضعف اكثر من 3 مرات .
التمرين المرفق مضغوط ببرنامج يقلص من حجم الملفات التنفيذية اسمه Nspack


ثبت المكون بنجاح لكن هناك خطأ في الوحدة SynEditOptionsDialog.pas
و بالتالي لم أستطع استعمال العنصر SynEditOptionsDialog1


تحتاج الى استعمال : SynPasSyn و SynEdit فقط اخي me&delphi

هيا نريد حلول اخرى :)

بالتوفيق للبقية ان شاء الله
AvimimuS
02-01-2009, 02:34 PM
السلام عليكم
هذا تطبيقي اتمني ان لا يكون خاطئا:(
وبنسبة لتشفير عملت طريقتين ;)
وشكرا
STRELiTZIA
02-01-2009, 07:09 PM
هذا تطبيقي اتمني ان لا يكون خاطئا

حل 85% صحيح...
ينقصه Highlighting لبعض الأجزاء... عدل في خيارات المكون : SynPasSyn

بالتوفيق ان شاء الله
AvimimuS
02-01-2009, 09:05 PM
التصحيح في المرفقات
وشكرا
STRELiTZIA
03-01-2009, 05:15 PM
التصحيح في المرفقات

الآن اصبح صحيح 100%

تحياتي
STRELiTZIA
06-01-2009, 03:56 PM
السلام عليكم و رحمة الله

تم ارفاق الملفات المصدرية للتمرين...

الأوامر التي استعملت هي :

لعمل التشفير... و هو عبارة على عكس الأحرف فقط :D

اضافة في قائمة الــ Uses الوحدة : StrUtils
StrUtils


procedure TMain.EncryptBtnClick(Sender: TObject);
var i: integer;
begin
CibleMmo.Clear;
for i := 0 to SourceMmo.Lines.Count - 1 do
begin
CibleMmo.Lines.Add(ReverseString(SourceMmo.Lines.S trings[i]));
end;
end;

اما بالنسة للنسخ دون تشفير :

procedure TMain.CopyBtnClick(Sender: TObject);
var i: integer;
begin
CibleMmo.Clear;
for i := 0 to SourceMmo.Lines.Count - 1 do
begin
CibleMmo.Lines.Add(SourceMmo.Lines.Strings[i]);
end;
end;

بالتوفيق ان شاء الله
bo0oda
07-01-2009, 02:47 AM
لعمل التشفير... و هو عبارة على عكس الأحرف فقط :D

اضافة في قائمة الــ Uses الوحدة : StrUtils
StrUtils


ReverseString only

ده انا قعدت 3 ايام احول اعملinstall لل Highlighter :mad:
ولما نزلته كنت زهقت من التمرين .:o :p
kachwahed
01-02-2009, 03:26 PM
السلام عليكم
في الحقيقة لم أشارك لحل التمرين، أردت فقط أن أضيف وحدة تجعل النص Highlight لأجل لغة Pascal
وذلك دون استعمال مكونات SynEdit، ولا أية مكونات خارجية فأنا لا أحب استعمال المكونات الخارجية.
وجدتها في إحدى المواقع فعدلت فيها وأعددت لكم مثال صغير في المرفقات ومعه الوحدة المعنية بالتحويل، وطريقة استخدامها في نص المكون RichEdit1.
تستعمل على مكون TRichEdit ومن عيوبها أنها تتطلب في كل مرة استعمال الإجراء HighlightPascal ووضعه في حدث التغيير في المكون TRichEdit يجعل العملية ثقيلة نوعا ما، خاصة إذا كان النص طويلا.
paix144
04-09-2009, 06:19 PM
السلام عليكم
جازاكم الله ألف خير على كل هذا العلم النافع
هذا هو تطبيقي