请教各位高手关于判断数据类型的问题

变量可能是别处传入，用来检查其合法性 //是否整型 function IsInt(AStr: string): Boolean; var Value, Code: Integer; begin Val(AStr, Value, Code); Result := Code = 0; end; function IsInt(S: string): boolean; var Int: Int64; begin Result := true; try Int := StrToInt64(s); except Result := false; end; end

[此贴子已经被作者于2005-7-31 1:36:26编辑过]