在delphi中怎样判断一个字符串是整型的?????
解决方案 »
- 对IBM的二手本本你怎么看呢?
- StringGrid怎么设置不可滚动行的数据啊?急!
- IntraWeb7开发的数据库能否在linux系统中运行
- 如何判断Image的Picture属性是否为空?
- ActiveX在网页中的下载问题!
- 这句代码为什么错了,我不太明白它的含义,
- 怎样用delphi实现计算机的扬声器发音?在线等待!
- 句柄是什么意思,谢谢,希望示例一下。马上给分。。。。。。。。。。。。。。。。
- 各位大哥!小弟有个Delphi6问题想请教一下?
- 在对系统稳定性要求比较高的情况,用Delphi还是BCB好?
- Delphi 7中FastNet控件页在什么地方?请用过7.0的朋友指教!
- 图标问题?
var I, Code: Integer;
begin
{ Get text from TEdit control }
Val(Edit1.Text, I, Code); //Val
{ Error during conversion to integer? }
if Code <> 0 then
MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0);
else
Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));end;
用try...except...end块
procedure Test;
var s: string;
begin
try
StrToInt(s);
except
ShowMessage('该字符串不是整型。');
exit;
end;
end;
直接
var
s:String;
i:integer;
begin
i:=StrToIntDef(s,-1);
if i=-1 then //非整型,不能转换
else //整形,可以转换end;