كيف حفظ محتوى Memo في ملف نصي ؟

[salah07230]

عندي في برنانجي memo1 تحتوي على 47 سطر او اكثر 
اريد عند قيامي بحفظ هذه الاسطر في ملف نصي ان يقوم البرنامج بكتابة السطر الاول مع الثاني
والثالك مع الرابع والخامس مع السادس وهكذا الى اخر سطر
وشكرا لكم

[mohamed49]

ربما تقصد حفظ كل ما بداخل
memo

تفضل

كود :

OpenDialog1.FileName:='memo1.txt'; if OpenDialog1.Execute  then    begin      memo1.Lines.SaveToFile(OpenDialog1.FileName );    end;

[salah07230]

بارك الله فيك اخي على ردك
انا اريد ان يقوم البرنامج بكتابة السطر الاول مع الثاني
والثالك مع الرابع والخامس مع السادس وهكذا الى اخر سطر
في memo1 ثم اقوم بالحفظ

[Agmcz]

بإستعمال الحلقة while
هكذا

كود :

var  I: Integer; begin  I := 0;  while I < Memo1.Lines.Count do  begin    Memo2.Lines.Add(Memo1.Lines[I] + ' ' + Memo1.Lines[I + 1]);    Inc(I, 2);  end; end;

[salah07230]

بارك الله فيكم تم الحل