السلام عليكم
كيف أعدل على مكون memo1 بحيث ادرج فيه الارقام كمثل الصورة
![[صورة: 8Z6HkU.png]](http://im47.gulfup.com/8Z6HkU.png)
اي بطريقة نوتباد ++ أو هل فيه مكون مثله ؟
و جزاكم الله خيرا
أخى عندى طريقة بسيطة ربما يوجد مكون جاهز أو أحد الاعضاء لدية حل أفضل .
كود :
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;
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 سطرا متواجد ..
و بارك الله بك على كرمك لنا
السلام عليكم ...
عن نفسي لا اعرف كيف .. لقصر خبرتي
لكن هذا مفتاح لما تريده ... :
قم تصميم مكون خاص بهذه الوضيفة .. أي قم بعمل مكون جديد يورث من المكون TMemo او TCustomMemo
وقم بتعديل عليه قليلاً وضع خاصية عد الاسطر ..
اعتقد ان هذه الطريقة المتبعه ..
أحمد 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);
مثال فى المرفقات