判断数值型:
try
StrToFloat(Text);
except
Application.MessageBox(Pchar('"'+Text+'" 不是有效数值类型'),'错误!',0);
end;
——————
判断日期时间型:
try
StrToDateTime(Text);
except
Application.MessageBox(Pchar('"'+Text+'" 不是有效的日期类型'),'错误!',0);
end;
try
StrToFloat(Text);
except
Application.MessageBox(Pchar('"'+Text+'" 不是有效数值类型'),'错误!',0);
end;
——————
判断日期时间型:
try
StrToDateTime(Text);
except
Application.MessageBox(Pchar('"'+Text+'" 不是有效的日期类型'),'错误!',0);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货