كيف أعدل على memo1 - نسخة قابلة للطباعة

كيف أعدل على memo1 - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أعدل على memo1 (/showthread.php?tid=6526)

كيف أعدل على memo1 - أحمد 13 - 01-11-2014

السلام عليكم
كيف أعدل على مكون memo1 بحيث ادرج فيه الارقام كمثل الصورة
[صورة: 8Z6HkU.png]

اي بطريقة نوتباد ++ أو هل فيه مكون مثله ؟
و جزاكم الله خيرا

كيف أعدل على memo1 - karika2 - 02-11-2014

أخى عندى طريقة بسيطة ربما يوجد مكون جاهز أو أحد الاعضاء لدية حل أفضل .

كود :
var
  Form1: TForm1;
  i:integer;

كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
Memo1.Lines.Add(IntToStr(i)+' code here')
 end;

كيف أعدل على memo1 - أحمد 13 - 04-11-2014

karika2 كتب :أخى عندى طريقة بسيطة ربما يوجد مكون جاهز أو أحد الاعضاء لدية حل أفضل .

كود :
var Form1: TForm1; i:integer;
كود :
procedure TForm1.FormCreate(Sender: TObject); begin i:=0; end;
كود :
procedure TForm1.Button1Click(Sender: TObject); begin i:=i+1; Memo1.Lines.Add(IntToStr(i)+' code here') end;

بارك الله فيك اخي العزيز و لكن فكرتي ليست هكذا .. يا ريت لو طريقة اخرى

لاني فكرتي حين افتح ملف مثلا txt لو فيه عدد الاسطر 5 يعطني 5

لو مثلا فيه 27 سطر يعطني ترقيم 27 سطرا متواجد ..

و بارك الله بك على كرمك لنا

كيف أعدل على memo1 - ALmuhhnad - 05-11-2014

السلام عليكم ...
عن نفسي لا اعرف كيف .. لقصر خبرتي

لكن هذا مفتاح لما تريده ... :

قم تصميم مكون خاص بهذه الوضيفة .. أي قم بعمل مكون جديد يورث من المكون TMemo او TCustomMemo
وقم بتعديل عليه قليلاً وضع خاصية عد الاسطر ..

اعتقد ان هذه الطريقة المتبعه ..

كيف أعدل على memo1 - onexite - 05-11-2014

استخدم مكون TAdvMemo

كيف أعدل على memo1 - karika2 - 06-11-2014

أحمد 13 كتب :بارك الله فيك اخي العزيز و لكن فكرتي ليست هكذا .. يا ريت لو طريقة اخرى

لاني فكرتي حين افتح ملف مثلا txt لو فيه عدد الاسطر 5 يعطني 5

لو مثلا فيه 27 سطر يعطني ترقيم 27 سطرا متواجد ..

و بارك الله بك على كرمك لنا

فى هذة الحالة سوف نستخدم المتغير textfile للقراءة الملفات النصية ونضع حلقة فيها المتغير عند كل مرة تتم قرائة readln فيها .

كود :
Document:textfile ;
linetext : string  ;

كود :
if opendialog1.execute then
assignfile(Document,opendialog1.filename);
reset(Document);
Edit1.Text:=OpenDialog1.FileName;
while not eof(Document) do
begin
i:=i+1;
  readln(Document,linetext);
  Memo1.Lines.Add(IntToStr(i)+':'+linetext);

end;
closefile(Document);

مثال فى المرفقات

كيف أعدل على memo1 - أحمد 13 - 09-11-2014

بارك لله فيكم و جزاكم الله خيرا و نفع الله بكم .

لقد وجدتها http://im80.gulfup.com/yVyKCh.png

الخاصية في مكون tmc memo .

كيف أعدل على memo1 - onexite - 09-11-2014

أحمد 13 كتب :بارك لله فيكم و جزاكم الله خيرا و نفع الله بكم .

لقد وجدتها http://im80.gulfup.com/yVyKCh.png

الخاصية في مكون tmc memo .

بخصوص TAdvMemo مدفوعة
وهذه مجانية
http://sourceforge.net/projects/synedit/