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