reza_66
سه شنبه 17 اسفند 1389, 19:31 عصر
سلام
دوستان کسی دستور کامل val رو داره -
من می خوام داخل ادیتم فقط عدد ثبت بشه و حرف نگیره-خودم دستورشو دارم ولی درست کار نمی کنه
اگه اول یک عدد وارد بشه نگه می داره و بعدش اگه حرف هو تایپ بشه قبول می کنه که نمی خوام اینطوری باشه
می خوام اگه عدد بود نگهش داره و اگر حرف بود همون کارکتر حرف پاک بشه
var i , code:integer
begin
for a:=0 to length (edit1.text) do
val (edit1.text,i,code
if code <>0 then
begin
edit1.clear
end
end
دوستان کسی دستور کامل val رو داره -
من می خوام داخل ادیتم فقط عدد ثبت بشه و حرف نگیره-خودم دستورشو دارم ولی درست کار نمی کنه
اگه اول یک عدد وارد بشه نگه می داره و بعدش اگه حرف هو تایپ بشه قبول می کنه که نمی خوام اینطوری باشه
می خوام اگه عدد بود نگهش داره و اگر حرف بود همون کارکتر حرف پاک بشه
var i , code:integer
begin
for a:=0 to length (edit1.text) do
val (edit1.text,i,code
if code <>0 then
begin
edit1.clear
end
end