help! I'm new.

Question

type
  TForm2 = class(TForm)
    first: TEdit;
    second: TEdit;
    Button1: TButton;
    third: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.fmx}procedure TForm2.Button1Click(Sender: TObject);
var first:integer;
   second:integer;
      third:integer;
begin
  third:=first+second;
end;end.

Answer 1

third.text:=inttostr(strtointdef(first.text,0)+strtointdef(second.text,0));

Answer 2

你这样定义的变量和Edit名字相同，不感觉很复杂吗？

Answer 3

looks like doesn't help!

Answer 4

first,second and third already change property to integer,. why still have to use so many code?

Answer 5

procedure TForm2.Button1Click(Sender: TObject);
begin
  third.text:=inttostr(strtointdef(first.text,0)+strtointdef(second.text,0));
end;

Answer 6

you'd better use Delphi 6 to begin your study. Because in Delphi6 you can search for every functions and procedures helps,just press F1 for help.it is the fast way for your study ,just try it

Answer 7

procedure TForm2.Button1Click(Sender: TObject);
var
//最好能让变量和控件名称有所区别，方便自己和他人阅读程序，增加程序的可读性
n_first:integer;
   n_second:integer;
      n_third:integer;
begin
//可以这样做
//先把first Edit里边的内容（字符串），转化成整数
  n_first:= strtointdef(first.text,0);  //防止first Edit 内容为空时出错，所以选用StrToIntDef函数
//同理 second Edit
  n_second := strtointdef(second.text,0);
//然后，相加
  n_third:= n_first+n_second;
//最后把n_third 的值变成 字符串，放到third Edit 里显示
 third.Text := IntToStr( n_third );
end;end.