delphi4arab منتديات دلفي للعرب

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

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

اذا أضفت memo وي OpenDialog

كود :
memo1.Lines.LoadFromFile(OpenDialog1.FileName);

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

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

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

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

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

كيفيه ذلك

السلام عليكم
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]);

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

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

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

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

php3man

TF6M

مبرمج هاوي

kachwahed

مبرمج هاوي