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

السلام عليكم
ممكن طريقة نسخ سطر وترك سطر من memo1 الى memo2
مثال عندي هذه الاسطرفي memo1
محمد
معتز بالله
اسلام
الياس
شمسو
احمد
سهيل
فيصل
.
.
.
القائمة طويلة....

بحيث انقل الى memo2 الاسطر
معتز بالله
الياس
احمد
فيصل
.
.
.
الى النهاية

يعني انقل سطر واترك سطرا بحيث السطر
الذي نقلته يحذف من memo1
وشكرا

السلام عليكم

كود :
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;

السلام عليكم
هذا هو الكود
بحيث 1 يمثل رقم السطر . مع العلم أن السطر الأول رقمه 0

كود :
Memo2.Lines.Add(memo1.Lines.Strings[1]);
    memo1.Lines.Delete(1);

شكرا لكما اخواي
مبرمج حر
و
صالح حمادي
على الرد السريع والاجابة الصحيحة

salah07230

مبرمج حر

صالح حمادي

salah07230