السلام عليكم ورحمة الله وبركاته
اخوتي , عندي DBGrid تحتوي على حقل Currency عند ادخال معطى خطأ
(مثلا : ---999...999) تظهر رسالة الخطأ الخاصة بالـBDE .
كيف يمكن استبدال الرساله باخرى من خلال البرنامج؟
بارك الله فيكم
تم تعديل هذه المشاركة بواسطة ماهر صرصور في 15 أغسطس 2005 في 11:26
لنكن الافضل , هكذا كنا.
استخدم try
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
استخدم try
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
شكرا لك اخي romonof على الرد.
للكن , اين يمكن وضع كود الtry ?????
انا استعمل ال DBGrid تحتوي على حقل Currency .
لنكن الافضل , هكذا كنا.
لكل حقل من حقول الجدول يوجد الحدث OnValidate ..
أبحث عنه في الهلب
السلام عليكم .
شكرا اخي عروه على الاجابه , لكن OnValidate لم تعمل!!!!
ولكن نجحت بفعل ذلك عن طريق OnSetText :
void __fastcall TForm1::Table1OrderNoSetText(TField *Sender,
const AnsiString Text)
{
try
{
Table1OrderNo->Value = StrToFloat(Text);
}
catch(...)
{
ShowMessage("Bad Float");
}
}لنكن الافضل , هكذا كنا.
هذا الموضوع مغلق.