اضافه نص في 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.

[مبرمج هاوي]

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

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