كيفية حذف ملف ببرنامج دلفي - نسخة قابلة للطباعة

كيفية حذف ملف ببرنامج دلفي - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : كيفية حذف ملف ببرنامج دلفي (/showthread.php?tid=7152)

كيفية حذف ملف ببرنامج دلفي - sabre - 14-08-2015

بسم الله الرحمن الرحيم
الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين

كيفية حذف ملف ببرنامج دلفي
انشاء مشروع جديد دلفي

وضع هذه العناصر على الفورم
Button1: TButton;
Button2: TButton;
Button3: TButton;
OpenDialog1: TOpenDialog;

تم عرض ثلث طرق لحذف ملف
وبــأمرين مختلفين DeleteFile و Erase

كود :
procedure TForm1.Button1Click(Sender: TObject);//http://delphi4arab.net/forum
var
    FileName: String;
begin
  FileName := 'fichier1.txt';
  if FileExists(FileName) then
           DeleteFile(FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  F:Textfile;
  FileName: String;
begin
 FileName := 'fichier1.txt';
 if FileExists(FileName) then
 begin
   AssignFile(F, FileName);
   try
    Reset(F);
    CloseFile(F);
    Erase(F);
    except
     on EInOutError do
  end;
 end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  F:Textfile;
begin 
  with OpenDialog1 do
  begin
   Title :='Suppression de fichier';
   Filter := 'Tout les fichiers (*.*)|*.*';
   if Execute then
   begin
    if MessageDlg('Supprimer '+FileName + '?',
      mtConfirmation,[mbYes,mbNo],0) = mrYes then
        DeleteFile(FileName);
  end;
 end;
end;

RE: كيفية حذف ملف ببرنامج دلفي - Delphi_2007 - 24-09-2017

شكرا على الموضوع والكود، لقد قمت بالتجريب ولقد نجح معي باستثناء
- عندما كان اسم الموضوع المراد خذف بالعربي لم يحذفه

اضافة قمت بالغاء اكواد الزرين Button1 و Button2 وابقيت على كود الزر3 Button3
وعند التجريب نجحت محاولة الحذف

اذا امكن وبعد اذنك ممكن شرح مفصل للاكواد ولك كل الشكر المسبق مع اخلص تحياتي.