كيف يمكن الغاء ظور رساله ان الملف غير موجود
اى يقتح البرنامج فى حاله وجود الملف او عدم وجوده
Image1.Picture.LoadFromFile('D:\B4U GROUP\Backup\moh.bmp');
و السؤال الثانى
كيف يمكن ان ياخذ البرنامج امتداد الصوره تلقائى
ممكن ان تكون الصورة moh.bmp
او moh.jpg
او اى امتداد كيف تكتب
السلام عليكم
اقتباساى يقتح البرنامج فى حاله وجود الملف او عدم وجوده
لم أفهم عليك كثيراً, ولكن إذا كنت تقصد أنك تقوم بتحميل صورة
في بداية تشغيل برنامج الخاص المبرمج بدلفي, ونريد اختبار الملف موجود أم لا؟
استعمل التعليمة التالية:
if FileExists('D:\B4U GROUP\Backup\moh.bmp') then
Image1.Picture.LoadFromFile('D:\B4U GROUP\Backup\moh.bmp');وبالنسبة للفكرة التانية جرب تستعمل If ...Else
if FileExists('D:\1.jpg') then
Image1.Picture.LoadFromFile('D:\1.jpg')
else
if FileExists('D:\1.bmp') then
Image1.Picture.LoadFromFile('D:\1.bmp')وبالتوفيق ;)
تم تعديل هذه المشاركة بواسطة Like Delphi في 12 مارس 2006 في 09:48
قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.
IN ALLAH WE TRUST
:.:.:.:.:.:.:.:.:.:.:.:.:.:
هذا الموضوع مغلق.