كيف أعدل على memo1

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

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