除了键盘控制外如何检验用户在Tedit中输入的是数据?有这样的函数吗 ?(50分)

  • 主题发起人 主题发起人 williem
  • 开始时间 开始时间
W

williem

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