كيف أقوم بعملية الحفظ في هذه الحالة؟؟

[fhol]

السلام عليكم

كيف أقوم بعملية الحفظ في هذه الحالة لملف ذو امتداد TXT ؟؟ صورة المشروع

كود :

http://alfaris.net/up/71/alfaris_net_1309790670.jpg

بحيث :
ملف txt يكون موجود سابقا و هو في مسار C:\ok
و بعد ان أضغط على زر موافق الارقام أو الأحرف التي قمت بكتابتها في Edit
تحفظ تلقائيا في ملف ذو الامتداد txt في المسار المذكور في الاعلى
و بارك الله فيكم و شكرا لكم

[kachwahed]

وعليكم السلام ورحمة الله
استخدم خاصية البحث في المنتدى...
SaveToFile، TStringList, LoadFromFile...
أو استخدم ->> ملفات INI مثلا
بالتوفيق.

[karazeh2006]

كود :

Procedure Button1Click(Sender:tobject); var ss:tstringlist; begin ss:=tstringlist.create; ss.text:=nedit1.text; ss.savetofile('c:\ok.txt'); ss.free; end ;

karazeh2006

[fhol]

مشكور اخي kachwahed و جزاك الله كل الخير اخي karazeh2006

على العموم طريقة الاخ karazeh2006 سهلة جدا و لكن هناك مشكل و هو عندما اكتب قيمة معينة في Edit1 و احفظ القيمة المكتوبة لا تحفظ .. فلماذا ؟؟
هذا هو الكود الذي إستعملته

كود :

procedure TForm1.Button1Click(Sender: TObject); begin ss:=tstringlist.create; ss.text:=edit1.text; ss.savetofile('c:\ok.txt'); ss.free;

[لؤي]

طريقة أخرى بإستعمال 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;