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

[لؤي]

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