حذف ملف ببرنامج دلفي
صفحة 1 من اصل 1
حذف ملف ببرنامج دلفي
كيفية حذف ملف ببرنامج دلفي
بسم الله الرحمن الرحيم
الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين
انشاء مشروع جديد دلفي
وضع هذه العناصر على الفورم
Button1: TButton;
Button2: TButton;
Button3: TButton;
OpenDialog1: TOpenDialog;
تم عرض ثلث طرق لحذف ملف
وبــأمرين مختلفين
DeleteFile و Erase
- الكود:
procedure TForm1.Button1Click(Sender: TObject);//ouladmsila.forumalgerie.net
var
FileName: String;//ouladmsila.forumalgerie.net
begin
FileName := 'fichier1.txt';//ouladmsila.forumalgerie.net
if FileExists(FileName) then
DeleteFile(FileName);//ouladmsila.forumalgerie.net
end;//ouladmsila.forumalgerie.net
procedure TForm1.Button2Click(Sender: TObject);//ouladmsila.forumalgerie.net
var
F:Textfile;//ouladmsila.forumalgerie.net
FileName: String;//ouladmsila.forumalgerie.net
begin
FileName := 'fichier1.txt';//ouladmsila.forumalgerie.net
if FileExists(FileName) then
begin
AssignFile(F, FileName);//ouladmsila.forumalgerie.net
try
Reset(F);//ouladmsila.forumalgerie.net
CloseFile(F);//ouladmsila.forumalgerie.net
Erase(F);//ouladmsila.forumalgerie.net
except
on EInOutError do
end;//ouladmsila.forumalgerie.net
end;//ouladmsila.forumalgerie.net
end;//ouladmsila.forumalgerie.net
procedure TForm1.Button3Click(Sender: TObject);//ouladmsila.forumalgerie.net
var
F:Textfile;//ouladmsila.forumalgerie.net
begin
with OpenDialog1 do
begin
Title :='Suppression de fichier';//ouladmsila.forumalgerie.net
Filter := 'Tout les fichiers (*.*)|*.*';//ouladmsila.forumalgerie.net
if Execute then
begin
if MessageDlg('Supprimer '+FileName + '?',
mtConfirmation,[mbYes,mbNo],0) = mrYes then
DeleteFile(FileName);//ouladmsila.forumalgerie.net
end;//ouladmsila.forumalgerie.net
end;//ouladmsila.forumalgerie.net
end;//ouladmsila.forumalgerie.net
.
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى