كيف أعدل على memo1

[أحمد 13]

السلام عليكم
كيف أعدل على مكون memo1 بحيث ادرج فيه الارقام كمثل الصورة

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

[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;

[أحمد 13]

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

كود :

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 سطرا متواجد ..

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

[ALmuhhnad]

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

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

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

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

[onexite]

استخدم مكون TAdvMemo

[karika2]

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

لاني فكرتي حين افتح ملف مثلا 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);

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

[أحمد 13]

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

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

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

[onexite]

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

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

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

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