如何判断dbedit的内容是汉字还是数字？

Question

一个简单的问题，但困扰我一天了，问一下大家，如何判断dbedit的内容是汉字还是数字？以便我做不同的处理，是用length来判断吗？多谢大家帮忙！

Answer 1

一个简单的问题，但困扰我一天了，问一下大家，如何判断dbedit的内容是汉字还是数字？以便我做不同的处理，是用length来判断吗？多谢大家帮忙！
var text_length,i:integer;
begin
text_length:=length(dbedit1.text);
if text_length<>0 then
begin
 for i:=1 to text_length do
 begin
  if (copy(edit1.text,i,1) in [0,1,2,3,4,5,6,7,8,9]) then
     continue
  else
     begin
      showmessage('显示的为汉字')；
      exit;
     end;
 end;
showmessage('显示为数字')；
end
else
 showmessage('DBEDIT内容为空);
end;

Answer 2

现学现卖吧使用StrToIntDef(Edit.Text,-1)，如果得到值>0，就说明Edit里的数值是数字，反之是汉字

Answer 3

谢谢SNYQ411(洋溢)和ttoth12(命运的角斗士)！

Answer 4

多谢SNYQ411(洋溢)！太谢谢了。