المشاركات : 126
المواضيع 27
:
: 63
الإنتساب : Jun 2013
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="
" alt="
" data-sceditor-emoticon="
" src="https://delphi4arab.net/forum/images/smilies/angel.png"> <p><br></p>
المشاركات : 522
المواضيع 46
:
: 394
الإنتساب : Sep 2011
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;
اللّهمّ فرّج أُموراً ضَاقت بها صُدورنا وعجزت بها حيلتنا وقلّ بها صَبرنا الّلهمّ أَسعِد قلوبنا بما أنتَ أعْلَمُ بِهِ مِنّا
المشاركات : 126
المواضيع 27
:
: 63
الإنتساب : Jun 2013
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>
المشاركات : 522
المواضيع 46
:
: 394
الإنتساب : Sep 2011
الكود الصحيح
كود :
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;
اللّهمّ فرّج أُموراً ضَاقت بها صُدورنا وعجزت بها حيلتنا وقلّ بها صَبرنا الّلهمّ أَسعِد قلوبنا بما أنتَ أعْلَمُ بِهِ مِنّا
المشاركات : 126
المواضيع 27
:
: 63
الإنتساب : Jun 2013
<p>
(28-12-2022, 08:57 AM)larbiparadox كتب : الكود الصحيح
كود :
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;
<br><br>جزاك الله خيراا بارك الله فيك في ميزان حسناتك انشاء الله </p>
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)