+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : نقل اسطر من memo1 الى memo2 (/showthread.php?tid=11783)
نقل اسطر من memo1 الى memo2 - salah07230 - 27-01-2022
السلام عليكم
ممكن طريقة نسخ سطر وترك سطر من memo1 الى memo2
مثال عندي هذه الاسطرفي memo1
محمد
معتز بالله
اسلام
الياس
شمسو
احمد
سهيل
فيصل
.
.
.
القائمة طويلة....
بحيث انقل الى memo2 الاسطر
معتز بالله
الياس
احمد
فيصل
.
.
.
الى النهاية
يعني انقل سطر واترك سطرا بحيث السطر
الذي نقلته يحذف من memo1
وشكرا
RE: نقل اسطر من memo1 الى memo2 - مبرمج حر - 27-01-2022
السلام عليكم
كود :
Var i :word;
begin
Memo2.Clear;
for i:=0 to Memo1.Lines.Count-1 do
if (i mod 2)=0 then Memo2.Lines.Add(Memo1.Lines[i]);
end;RE: نقل اسطر من memo1 الى memo2 - صالح حمادي - 27-01-2022
السلام عليكم
هذا هو الكود
بحيث 1 يمثل رقم السطر . مع العلم أن السطر الأول رقمه 0
كود :
Memo2.Lines.Add(memo1.Lines.Strings[1]);
memo1.Lines.Delete(1);RE: نقل اسطر من memo1 الى memo2 - salah07230 - 27-01-2022
شكرا لكما اخواي
مبرمج حر
و
صالح حمادي
على الرد السريع والاجابة الصحيحة