[viv]

أنتبهوا لانني ازيد في المناشير السابقة عندما اتذكر شيئا ما
فكل من فاته شئ يمكنه مراجعة المنشور مرة اخرى لانني اعدل فيه

من الامور التي واجهتني هي شوشرة في استخدام عبارة IF الشرطية في دلفي لذلك سوف نفرد لها منشور خاص للتوضيح

   

حيث احيانا تحتاج الى انهاء الجملة بعبارة Begin وايضا End واحيانا لا على العموم الامر بسيط وسوف نشرحه لاحقا بدرس لوحده
بحيث ايضا يكون من الضروري استخدام الفاصلة المنقوطة بنهاية الجملة واحيانا سوف ترفضها

---

ايضا نحتاج ان نتقدم خطوة وهي اظهار رسالة موافقة على الحذف

كود :

if MessageDlg('هل تريد حذف الملف',mtWarning,[mbOK, mbCancel],0) =mrOk then
begin
 ADOTable1.Delete;
 ShowMessage('تم حذف الملف بنجاح')
end;

نوع الرسالة يمكنك استخدام اي من هذه
mtWarning, mtError, mtInformation, mtConfirmation

الازرار يمكنك استخدام اي من هذه
mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose