本文整理自网络,侵删。
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 -- gdi+ Delphi如何让 tgpimage 直接从流中加载图片
Delphi listview 导出excel txt vcf 单元
更多相关阅读请进入《Delphi》频道 >>