Delphi中的IsNumeric

function IsNumeric(Data: string) : boolean;
var i, code : integer;
begin
    val(data, i, code);
    if code = 0 then
        result := true
    else
        result := false;
end;