//***************************************************************************
//函 数 名: IsDigit
//返 回 值: boolean
//参 数: String
//功 能: 判断一个字符串是否为数字
//***************************************************************************
IsDigit(S:String):Boolean; //变量S为要判断的字符串,返回true则正确
var
i,j:integer;
……