IsNumeric?

[FirstLine]

با سلام
در دلفی چجوری میتونم بفهمم که محتویات این EditBox فقط عدد است یا نه؟
با تشکر

[MiRHaDi]

سلام
بجوز IsNumeric ! میتونی از StrToInt استفاده کنی ببینی Error میده یا نه ! میتونی هم این کارو کنی

isnumeric := true;
if not(edit1.text[1] in ['0'..'9','-','+']) then isnumeric:=false;
For k := 2 to length(edit1.text do
if not(edit1.text[k] in ['0'..'9']) then isnumeric := false;
بای

[JavanSoft]

Try
Edit1.Text:=IntToStr(StrToInt(Edit1.Text))
Except
ShowMessage('Error')
End


یا


Edit1.Text:=IntToStr(StrToIntDef(Edit1.Text,0))