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

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

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

تفضل

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

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

بإستعمال الحلقة 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

mohamed49

salah07230

Agmcz

salah07230