اضافه نص في memo ودمج نص أخر

[php3man]

بسم الله الرحمن الرحيم

السلام عليكم ورحمه الله وبركاته

اذا أضفت memo وي OpenDialog

كود :

memo1.Lines.LoadFromFile(OpenDialog1.FileName);

وفتحت ملف نصي موجود بيه
مثال :

أحمد
محمد
محمود
أبو القاسم
عبد الرحمن
عبدالله

الحين هو تم فتحه في Memo

طيب اذا حبيت عند فتحه أضافه ترقيم تلقائي اله
متل عند فتحه يظهر

1- أحمد
2 - محمد
3 - محمود
4 - ابو القاسم
5 - عبد الرحمن
6 - عبدالله

كيفيه ذلك

[TF6M]

السلام عليكم
1- حسب طبيعة الملف !
2- حسب طبيعة سؤالك :

كود :

Var i: Byte; begin With OpenDialog,Mmo.Lines Do Begin {$I-} Execute; LoadFromFile(FileName); {$I+} If IoResult = 0 Then For i:= 0 To Count - 1 Do Strings[i]:= ConCat(IntToStr(i+1),'-',Strings[i]); End; //FreeMem !!!. end;

بالتوفيق,,

[مبرمج هاوي]

يعطيك العافية يالغالي

لكن ودي تشرح السطر هذا :

كود :

Strings[i]:= ConCat(IntToStr(i+1),'-',Strings[i]);

[kachwahed]

لكن ودي تشرح السطر هذا :

Strings[i] تعني السطر
ConCat لدمج النصوص الآتية:
IntToStr(i+1) رقم السطر الموالي
'-' مضافة إلى السطر
Strings[i] محتوى السطر i
ملاحظة: يستحسن في دلفي دمج النصوص باستخدام رمز الجمع (+)
خلافا لبقية لغات البرمجة مثل NET.

[مبرمج هاوي]

يعطيك العافية يالغالي

شكرا لك على هذا الشرح وشكرا للاخ على الكود