دخول

sabre · 14-08-2015, 07:27 PM

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

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

وضع هذه العناصر على الفورم
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;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة