请教一个简单的问题，VarIsNumeric()函数为什么什么值都不反回

Question

var 
  d:boolean;
  a:string;
begin
  a:='2343';
  d:=varisnumeric(a);
end;    结果d什么值都没有，不知道是怎么事吧，大家遇到过这种情况吗？请知道解决方法的朋友告诉我一声

Answer 1

你跟踪时
d后面没有代码，执行这句后，d被释放了
加句
if d then
  showmessage('true')
else
  showmessage('false')
试试！请大家去 http://www.new7wonders.com/c/voting.php 投长城一票

Answer 2

你是怎么看D没有值的，肯定是有值的
procedure TForm1.Button1Click(Sender: TObject);
var 
  d, c:boolean;
  a:string;
begin
  a:='2343';
  d:= true;
  d:=varisnumeric(a);
  if (not d) then showmessage('ddd');
end;

Answer 3

但我
if varisnumeric(a) then
  showmessage('true');时，varisnumeric(a)总是为假

Answer 4

a:=edit1.text;
  （或者a:='2423')
  b:=VarIsNumeric(a);
  if b then
    showmessage('NUM')
  else
    showmessage('NoNUM');结果一真为假，为无法解决，还望大家多多帮忙

Answer 5

a:=edit1.text;
  （或者a:='2423')
  b:=VarIsNumeric(a);
  if b then
    showmessage('NUM')
  else
    showmessage('NoNUM');结果一直为假，执行showmessage('NoNUM');这一句，无法解决，还望大家多多帮忙