HomeWork_04 تمرين تطبيقي
#11
إقتباس :التصحيح في المرفقات
الآن اصبح صحيح 100%

تحياتي
الرد
#12
السلام عليكم و رحمة الله

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

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

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

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

PHP كود :
procedure TMain.EncryptBtnClick(SenderTObject);
var 
iinteger;
begin
  CibleMmo
.Clear;
  for 
:= 0 to SourceMmo.Lines.Count do
  
begin
    CibleMmo
.Lines.Add(ReverseString(SourceMmo.Lines.Strings[i]));
  
end;
end 
;

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

PHP كود :
procedure TMain.CopyBtnClick(SenderTObject);
var 
iinteger;
begin
  CibleMmo
.Clear;
  for 
:= 0 to SourceMmo.Lines.Count do
  
begin
    CibleMmo
.Lines.Add(SourceMmo.Lines.Strings[i]);
  
end;
end

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


الملفات المرفقة
.rar   HomeWork_04_Source.rar (الحجم : 232.03 KB / التحميلات : 218)
الرد
#13
STRELiTZIA كتب :لعمل التشفير... و هو عبارة على عكس الأحرف فقط Big Grin

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

ده انا قعدت 3 ايام احول اعملinstall لل Highlighter :mad:
ولما نزلته كنت زهقت من التمرين .:o :p
الرد
#14
السلام عليكم
في الحقيقة لم أشارك لحل التمرين، أردت فقط أن أضيف وحدة تجعل النص Highlight لأجل لغة Pascal
وذلك دون استعمال مكونات SynEdit، ولا أية مكونات خارجية فأنا لا أحب استعمال المكونات الخارجية.
وجدتها في إحدى المواقع فعدلت فيها وأعددت لكم مثال صغير في المرفقات ومعه الوحدة المعنية بالتحويل، وطريقة استخدامها في نص المكون RichEdit1.
تستعمل على مكون TRichEdit ومن عيوبها أنها تتطلب في كل مرة استعمال الإجراء HighlightPascal ووضعه في حدث التغيير في المكون TRichEdit يجعل العملية ثقيلة نوعا ما، خاصة إذا كان النص طويلا.


الملفات المرفقة
.rar   HighLight text without SynEdit.rar (الحجم : 181.79 KB / التحميلات : 159)
الرد
#15
السلام عليكم
جازاكم الله ألف خير على كل هذا العلم النافع
هذا هو تطبيقي


الملفات المرفقة
.rar   essai.p1.rar (الحجم : 5.46 KB / التحميلات : 55)
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف