كيف أعدل على memo1

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

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