+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اضافه نص في memo ودمج نص أخر (/showthread.php?tid=2378)
اضافه نص في memo ودمج نص أخر - php3man - 04-09-2010
بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاته
اذا أضفت memo وي OpenDialog
كود :
memo1.Lines.LoadFromFile(OpenDialog1.FileName);وفتحت ملف نصي موجود بيه
مثال :
أحمد
محمد
محمود
أبو القاسم
عبد الرحمن
عبدالله
الحين هو تم فتحه في Memo
طيب اذا حبيت عند فتحه أضافه ترقيم تلقائي اله
متل عند فتحه يظهر
1- أحمد
2 - محمد
3 - محمود
4 - ابو القاسم
5 - عبد الرحمن
6 - عبدالله
كيفيه ذلك
اضافه نص في memo ودمج نص أخر - TF6M - 05-09-2010
السلام عليكم
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;اضافه نص في memo ودمج نص أخر - مبرمج هاوي - 09-10-2010
يعطيك العافية يالغالي
لكن ودي تشرح السطر هذا :
كود :
Strings[i]:= ConCat(IntToStr(i+1),'-',Strings[i]);اضافه نص في memo ودمج نص أخر - kachwahed - 09-10-2010
إقتباس :لكن ودي تشرح السطر هذا :Strings[i] تعني السطر
ConCat لدمج النصوص الآتية:
IntToStr(i+1) رقم السطر الموالي
'-' مضافة إلى السطر
Strings[i] محتوى السطر i
ملاحظة: يستحسن في دلفي دمج النصوص باستخدام رمز الجمع (+)
خلافا لبقية لغات البرمجة مثل NET.
اضافه نص في memo ودمج نص أخر - مبرمج هاوي - 09-10-2010
يعطيك العافية يالغالي
شكرا لك على هذا الشرح وشكرا للاخ على الكود
