delphi4arab منتديات دلفي للعرب › منتديات دلفي للعرب التعليمية › سؤال و جواب حول دلفي v
كيف احظر جميع اسماء الملفات للتحقق من ان الاسم لا يوجد مسبقا

ادوات الموضوع
كيف احظر جميع اسماء الملفات للتحقق من ان الاسم لا يوجد مسبقا
Med-01 غير متصل
مبرمج هاوي
***
المشاركات : 126
المواضيع 27
:
: 63
الإنتساب : Jun 2013
#1
26-12-2022, 11:41 PM (آخر تعديل لهذه المشاركة: 26-12-2022, 11:57 PM بواسطة Med-01.)
السلام عليكم لدي مجلد به ملفات لانشاء ملف جديد اخد نسخة من اي ملف واغير اسمه فيتم انشاء ملف جديد باسم جديد المطلوب هو عمل تحقق انو اسم الملف غير موجد لاظهار رسالة انو الملف بهذا الاسم موجود مسبقا غير الى اسم اخر انا استخدم FileListBox1 لعرض الملفات الموجودة في المجلد
PHP كود :
if(edit1.Text='')then showmessage('empty !') else CopyFile('model.mdb',PChar(Edit1.Text+'.mdb'),false); FileListBox1.Update 

<img title="Angel" alt="Angel" data-sceditor-emoticon="Angel" src="https://delphi4arab.net/forum/images/smilies/angel.png"> <p><br></p>
البحث
الرد
larbiparadox غير متصل
Debugging
****
المشاركات : 522
المواضيع 46
:
: 394
الإنتساب : Sep 2011
#2
27-12-2022, 07:13 AM (آخر تعديل لهذه المشاركة: 27-12-2022, 03:34 PM بواسطة larbiparadox.)
وعليك الاسلام ، رد سريع في إحتمال أخطاء

كود :
         if(edit1.Text='') then begin         showmessage('empty !');         Abort;       End;        if FileExists(FileListBox1.Directory+Edit1.Text+'.mdb')  then  begin             showmessage('il''est existe déjà !!');                     end else begin              CopyFile(FileListBox1.Directory+'model.mdb',PChar(FileListBox1.Directory+Edit1.Text+'.mdb'),false);               FileListBox1.Update;          END;
‏اللّهمّ فرّج أُموراً ضَاقت بها صُدورنا وعجزت بها حيلتنا وقلّ بها صَبرنا الّلهمّ أَسعِد قلوبنا بما أنتَ أعْلَمُ بِهِ مِنّا
[-] كل من 1 user says قال شكرا ل larbiparadox على المشاركة المفيدة
  • Med-01
البحث
الرد
Med-01 غير متصل
مبرمج هاوي
***
المشاركات : 126
المواضيع 27
:
: 63
الإنتساب : Jun 2013
#3
27-12-2022, 10:41 PM (آخر تعديل لهذه المشاركة: 27-12-2022, 10:41 PM بواسطة Med-01.)
<p>لم يعمل الكود مع اني صححته لايوجد خطا لاكن لا يعمل<br><br>
PHP كود :
procedure TForm1.Button5Click(Sender: TObject);
begin
         if(edit1.Text='') then begin
        showmessage('empty !');
        Abort;
      End;
       if FileExists(FileListBox1.Directory+Edit1.Text+'.mdb')  then  begin
            showmessage('il''est existe déjà !!');

          end else begin
             CopyFile(PChar(FileListBox1.Directory+'model.mdb'),PChar(FileListBox1.Directory+Edit1.Text+'.mdb'),false);
            // CopyFile('model.mdb',PChar(Edit1.Text+'.mdb'),false);
              FileListBox1.Update;
         END;
end;

end. 
<br></p>
البحث
الرد
larbiparadox غير متصل
Debugging
****
المشاركات : 522
المواضيع 46
:
: 394
الإنتساب : Sep 2011
#4
28-12-2022, 08:57 AM
الكود الصحيح
كود :
if edit1.Text = '' then begin showmessage('empty !'); Abort; End; if FileExists(PChar(FileListBox1.Directory+'\'+Edit1.Text+'.mdb')) then begin showmessage('il''est existe déjà !!'); end else begin CopyFile(PChar(FileListBox1.Directory+'\'+'Unit1.dcu'),PChar(FileListBox1.Directory+'\'+Edit1.Text+'.mdb'),True); // CopyFile('model.mdb',PChar(Edit1.Text+'.mdb'),false); FileListBox1.Update; END;
‏اللّهمّ فرّج أُموراً ضَاقت بها صُدورنا وعجزت بها حيلتنا وقلّ بها صَبرنا الّلهمّ أَسعِد قلوبنا بما أنتَ أعْلَمُ بِهِ مِنّا
[-] كل من 2 users say قال شكرا ل larbiparadox على المشاركة المفيدة
  • ELARAPY, Med-01
البحث
الرد
Med-01 غير متصل
مبرمج هاوي
***
المشاركات : 126
المواضيع 27
:
: 63
الإنتساب : Jun 2013
#5
28-12-2022, 10:31 PM
<p>
(28-12-2022, 08:57 AM)larbiparadox كتب : الكود الصحيح
كود :
if edit1.Text = '' then begin showmessage('empty&nbsp;!'); Abort; End; if FileExists(PChar(FileListBox1.Directory+'\'+Edit1.Text+'.mdb')) then begin showmessage('il''est&nbsp;existe&nbsp;déjà&nbsp;!!'); end else begin CopyFile(PChar(FileListBox1.Directory+'\'+'Unit1.dcu'),PChar(FileListBox1.Directory+'\'+Edit1.Text+'.mdb'),True); //&nbsp;CopyFile('model.mdb',PChar(Edit1.Text+'.mdb'),false); FileListBox1.Update; END;
<br><br>جزاك الله خيراا بارك الله فيك في ميزان حسناتك انشاء الله&nbsp;</p>
البحث
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم