+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أقوم بعملية الحفظ في هذه الحالة؟؟ (/showthread.php?tid=3262)
كيف أقوم بعملية الحفظ في هذه الحالة؟؟ - fhol - 04-07-2011
السلام عليكم
كيف أقوم بعملية الحفظ في هذه الحالة لملف ذو امتداد TXT ؟؟ صورة المشروع
كود :
http://alfaris.net/up/71/alfaris_net_1309790670.jpgملف txt يكون موجود سابقا و هو في مسار C:\ok
و بعد ان أضغط على زر موافق الارقام أو الأحرف التي قمت بكتابتها في Edit
تحفظ تلقائيا في ملف ذو الامتداد txt في المسار المذكور في الاعلى
و بارك الله فيكم و شكرا لكم
كيف أقوم بعملية الحفظ في هذه الحالة؟؟ - kachwahed - 04-07-2011
وعليكم السلام ورحمة الله
استخدم خاصية البحث في المنتدى...
SaveToFile، TStringList, LoadFromFile...
أو استخدم ->> ملفات INI مثلا
بالتوفيق.
كيف أقوم بعملية الحفظ في هذه الحالة؟؟ - karazeh2006 - 04-07-2011
كود :
Procedure Button1Click(Sender:tobject);
var
ss:tstringlist;
begin
ss:=tstringlist.create;
ss.text:=nedit1.text;
ss.savetofile('c:\ok.txt');
ss.free;
end ;كيف أقوم بعملية الحفظ في هذه الحالة؟؟ - fhol - 05-07-2011
مشكور اخي kachwahed و جزاك الله كل الخير اخي karazeh2006
على العموم طريقة الاخ karazeh2006 سهلة جدا و لكن هناك مشكل و هو عندما اكتب قيمة معينة في Edit1 و احفظ القيمة المكتوبة لا تحفظ .. فلماذا ؟؟
هذا هو الكود الذي إستعملته
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ss:=tstringlist.create;
ss.text:=edit1.text;
ss.savetofile('c:\ok.txt');
ss.free;كيف أقوم بعملية الحفظ في هذه الحالة؟؟ - لؤي - 05-07-2011
طريقة أخرى بإستعمال assignfile
ممكن إضافة Memo للبرنامج
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var F : TextFile;
begin
AssignFile(F,'c:\ok.txt');
if FileExists('c:\ok.txt') then begin
Append(F);
WriteLn(f,edit1.text);
//WriteLn(f,mmo1.text);
CloseFile(f);end
else begin
Rewrite(F);
CloseFile(f); end;
end;