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

السلام عليكم

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

كود :
http://alfaris.net/up/71/alfaris_net_1309790670.jpg

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

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

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

end ;

karazeh2006

مشكور اخي 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 للبرنامج Smile

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; 

fhol

kachwahed

karazeh2006

fhol

لؤي