急?小问题

Question

在Delphi里如何判断Edit里的值是数值型还是字符型???

Answer 1

或者
try
  strtofloat(edit1.text);
  showmessage('数值型');
except
  showmessage('字符型');
end;

Answer 2

TRY
  strtofloat(Trim(Edit1.Text));
  showmessage('数值型');
EXCEPT
  showmessage('字符型');
End;

Answer 3

TRY
  strtofloat(Trim(Edit1.Text));
  showmessage('数值型');
EXCEPT
  showmessage('字符型');
End;

Answer 4

同意一楼，Val最好：
{$HINTS OFF}
function IsNumeric(AStr: string): Boolean;
var
  Value: Double;
  Code: Integer;
begin
  Val(AStr, Value, Code);
  result := Code = 0;
end;
{$HINTS ON}