+- 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=8433)
كيف حفظ محتوى Memo في ملف نصي ؟ - salah07230 - 04-03-2017
عندي في برنانجي memo1 تحتوي على 47 سطر او اكثر
اريد عند قيامي بحفظ هذه الاسطر في ملف نصي ان يقوم البرنامج بكتابة السطر الاول مع الثاني
والثالك مع الرابع والخامس مع السادس وهكذا الى اخر سطر
وشكرا لكم
RE: كيف حفظ محتوى Memo في ملف نصي ؟ - mohamed49 - 04-03-2017
ربما تقصد حفظ كل ما بداخل
memo
تفضل
كود :
OpenDialog1.FileName:='memo1.txt';
if OpenDialog1.Execute then
begin
memo1.Lines.SaveToFile(OpenDialog1.FileName );
end;RE: كيف حفظ محتوى Memo في ملف نصي ؟ - salah07230 - 04-03-2017
بارك الله فيك اخي على ردك
انا اريد ان يقوم البرنامج بكتابة السطر الاول مع الثاني
والثالك مع الرابع والخامس مع السادس وهكذا الى اخر سطر
في memo1 ثم اقوم بالحفظ
RE: كيف حفظ محتوى Memo في ملف نصي ؟ - Agmcz - 04-03-2017
بإستعمال الحلقة 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;RE: كيف حفظ محتوى Memo في ملف نصي ؟ - salah07230 - 05-03-2017
بارك الله فيكم تم الحل