本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
i : integer;
begin
s := edit1.Text;
if not TryStrToInt(s, i) then
begin
ShowMessage('转换失败!');
end else
begin
ShowMessage('转换成功,结果为:' + inttostr(i));
end;
end;
相关阅读 >>
Delphi 取得开机时间 开机时间总长度(可精确到秒,分钟等)
Delphi分别连接ms sqlserver、oracle和access数据库的连接字符串
更多相关阅读请进入《Delphi》频道 >>