W
williem
Unregistered / Unconfirmed
GUEST, unregistred user!
除了键盘控制外如何检验用户在Tedit中输入的是数据？有这样的函数吗 ？
同样的，如何检验用户输入的是日期？
同样的，如何检验用户输入的是日期？
W
wind2000
Unregistered / Unconfirmed
GUEST, unregistred user!
输入的是数字吧！？
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!
给你个函数吧（不过在Delphi下调试是有出错提示的，但编译好的可执行文件不会有提示）。
Function IsNumeric(S:string):Boolean; //判断s是否能返回成数值
var
da
ouble;
begin
Result:=False;
if S='' then exit;
try
Da:=StrtoFloat(S);
Result:=true;
except
exit;
end;
end;
日期也与之类似，判断字符串能否返回成日期，不过要输完整后才能判断。
Function IsNumeric(S:string):Boolean; //判断s是否能返回成数值
var
da
ouble;begin
Result:=False;
if S='' then exit;
try
Da:=StrtoFloat(S);
Result:=true;
except
exit;
end;
end;
日期也与之类似，判断字符串能否返回成日期，不过要输完整后才能判断。
A
antic_ant
Unregistered / Unconfirmed
GUEST, unregistred user!
isnumerice ..
都是api函数
都是api函数
W
williem
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。