难以想象出的难题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
   i:int64;
begin
 i:=strtoint(form1.Edit1.Text );
 form1.Edit2.Text :=inttostr(i);
end;end.
在edit1中输入13795202022 如何才能保证运行正确，也就是说如何把13795202022转换为整型

Answer 1

无聊，很少见这样写程序的。一句话硬要拆成两句来写。form1.Edit2.Text:=form1.Edit1.Text

Answer 2

procedure TForm1.Button3Click(Sender: TObject);
var
   i:int64;
begin TryStrToInt64(form1.Edit1.Text,i );
 form1.Edit2.Text :=inttostr(i);