W williem Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-04 #1 除了键盘控制外如何检验用户在Tedit中输入的是数据?有这样的函数吗 ? 同样的,如何检验用户输入的是日期?
W wind2000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-05 #2 输入的是数字吧!? var iText: integer; begin Try iText := StrToInt(Edit.Text); except ShowMessage('请输入数字!'); end; end;
输入的是数字吧!? var iText: integer; begin Try iText := StrToInt(Edit.Text); except ShowMessage('请输入数字!'); end; end;
H HunterTeam Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-05 #3 给你个函数吧(不过在Delphi下调试是有出错提示的,但编译好的可执行文件不会有提示)。 Function IsNumeric(S:string):Boolean; //判断s是否能返回成数值 var daouble; begin Result:=False; if S='' then exit; try Da:=StrtoFloat(S); Result:=true; except exit; end; end; 日期也与之类似,判断字符串能否返回成日期,不过要输完整后才能判断。
给你个函数吧(不过在Delphi下调试是有出错提示的,但编译好的可执行文件不会有提示)。 Function IsNumeric(S:string):Boolean; //判断s是否能返回成数值 var daouble; begin Result:=False; if S='' then exit; try Da:=StrtoFloat(S); Result:=true; except exit; end; end; 日期也与之类似,判断字符串能否返回成日期,不过要输完整后才能判断。