ضرب كردن محتويات دو edit

[hentjanson]

سلام يك سوال ساده دارم
ببيند من 3 تا edit دارم
اولي تعداد رو ميگيره edit1
دومي في رو ميگيره edit2
حالا مي خوام وقتي كاربر تعداد و في رو وارد ميكنه قيمت كل در edit 3 سريعا به نمايش در بياد يعتي ضرب تعداد در في ميشه كمكم كنيد ؟

[nassim_20]

Edit3.Text := IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text));




حالا مي خوام وقتي كاربر تعداد و في رو وارد ميكنه قيمت كل در edit 3 سريعا به نمايش در بياد يعتي ضرب تعداد در في ميشه كمكم كنيد ؟

برای اینکار کد فوق را در رویداد onchange یکی از edit ها بنویس که کاربر بعد از پر کردن اون منتظر جواب خواهد بود

[hentjanson]

مرسي دوست من مشكلم حل شد

[اصغر (پآچ)]

سلام دوست من

ببین این کدی که دوستمون داده تا وقتی درست عمل می کنه که کاربر فقط عدد وارد کنه ولی اگه کاربر یه کاراکتر وارد کنه پیغام خطا در سیستم بوجود میاد. دو راه داری

1- استفاده از دستور Try.....Excepte
2- کاربر رو مجبور کنی که فقط عدد توی Edit وارد کنه که کدش اینه:


if NOT(key in ['0'..'9',' ',#13, #8,#27,#16,#18,#17]) then
Key := #0;


این کد رو باید در رویداد OnKeyPress هر دو تا Edit قرار بدی

موفق و موید باشی

[SYNDROME]

Edit3.Text := IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text));


برای اینکه در زمان خالی بودن Edit ها پیغام خطا ندهد کد را به این شکل اصلاح کنید.


Edit3.Text := IntToStr(StrToIntDef(Edit1.Text,0) * StrToIntDef(Edit2.Text,0));

مفق باشید