delphi4arab منتديات دلفي للعرب

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > كيف احظر جميع اسماء الملفات للتحقق من ان الاسم لا يوجد مسبقا
نسخة كاملة : كيف احظر جميع اسماء الملفات للتحقق من ان الاسم لا يوجد مسبقا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

Med-01

26-12-2022, 11:41 PM
السلام عليكم لدي مجلد به ملفات لانشاء ملف جديد اخد نسخة من اي ملف واغير اسمه فيتم انشاء ملف جديد باسم جديد المطلوب هو عمل تحقق انو اسم الملف غير موجد لاظهار رسالة انو الملف بهذا الاسم موجود مسبقا غير الى اسم اخر انا استخدم 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

27-12-2022, 07:13 AM
وعليك الاسلام ، رد سريع في إحتمال أخطاء

كود :
         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;

Med-01

27-12-2022, 10:41 PM
<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

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;

Med-01

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>
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > كيف احظر جميع اسماء الملفات للتحقق من ان الاسم لا يوجد مسبقا