HomeWork_04 تمرين تطبيقي

[STRELiTZIA]

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

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

تحياتي

[STRELiTZIA]

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

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

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

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

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

PHP كود :

StrUtils 


PHP كود :

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.Strings[i]));
  end;
end 


;

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

PHP كود :

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]

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

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

PHP كود :

StrUtils 


ReverseString only

ده انا قعدت 3 ايام احول اعملinstall لل Highlighter :mad:
ولما نزلته كنت زهقت من التمرين .:o :p

[kachwahed]

السلام عليكم
في الحقيقة لم أشارك لحل التمرين، أردت فقط أن أضيف وحدة تجعل النص Highlight لأجل لغة Pascal
وذلك دون استعمال مكونات SynEdit، ولا أية مكونات خارجية فأنا لا أحب استعمال المكونات الخارجية.
وجدتها في إحدى المواقع فعدلت فيها وأعددت لكم مثال صغير في المرفقات ومعه الوحدة المعنية بالتحويل، وطريقة استخدامها في نص المكون RichEdit1.
تستعمل على مكون TRichEdit ومن عيوبها أنها تتطلب في كل مرة استعمال الإجراء HighlightPascal ووضعه في حدث التغيير في المكون TRichEdit يجعل العملية ثقيلة نوعا ما، خاصة إذا كان النص طويلا.

[paix144]

السلام عليكم
جازاكم الله ألف خير على كل هذا العلم النافع
هذا هو تطبيقي