numeric alfanumeric

[sonsuz052]

edit box nesnesinden bir component yazmam lazım editin içine yazmış olduğumuz şeylerin nümericmi alfanumericmi olup olmadığını nasıl kontrol edebilirim bilen varmı

[ylmz]

Kod: Tümünü seç

try
  strtoint(Edit1.text)
except
  showmessage('alfanümerik')
end;

tabi eğer decimal tarafı varsa onuda hesaba katman lazım.Kolay gelsin.

[gkimirti]

onKeyPress eventine basılan tusu kontrol eden bir kod isini gorur
mesela

if Key in ['0'..'9'] then
numeric....
else
alfanumeric...

gibi

yada bilesene bir ozellik eklersin
numeric yada alfanumeric davranıs sergiler
tabi bu olay icinde kontrol edersin

[mege]

exceptiın oluşturmadan bulmak için

i ve iErr integer

Kod: Tümünü seç

        Val(edit1.text,i,iErr);
        if iErr<>0 then {string var veya boş falan]
 else 
 sonuc := i;