我定义了一个全局变量C:integer;在第一个事件中定义:
procedure Tckdform.Button6Click(Sender: TObject);
begin
c:=strtoint(edit1.text);
end;
在第二个事件中写:
procedure Tckdform.Button7Click(Sender: TObject);
begin
d:=a+b+c;
c:=strtoint(edit1.text);
end;
但我发现有个问题,就是执行d:=a+b+c的时候,他实际只执行d:=a+b,没有加C,这是怎么回事?
procedure Tckdform.Button6Click(Sender: TObject);
begin
c:=strtoint(edit1.text);
end;
在第二个事件中写:
procedure Tckdform.Button7Click(Sender: TObject);
begin
d:=a+b+c;
c:=strtoint(edit1.text);
end;
但我发现有个问题,就是执行d:=a+b+c的时候,他实际只执行d:=a+b,没有加C,这是怎么回事?
procedure Tckdform.formcreate(sender:tobject);
begin
button7.enabled:=false; //让用户必须先点button6
end;procedure Tckdform.Button6Click(Sender: TObject);
begin
button7.enabled:=true;
c:=strtoint(edit1.text);
end;
在第二个事件中写:
procedure Tckdform.Button7Click(Sender: TObject);
begin
d:=a+b+c;
c:=strtoint(edit1.text);
button7.enabled:=false;
end;
Form1: TForm1;
a,d,c,b : Integer ;procedure TForm1.Button1Click(Sender: TObject);
begin
c := StrToInt('1234') ;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
d := a + b + c ;
ShowMessage(IntToStr(d)) ; //1234
end;
begin
Button2.Enabled := False ;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
c := StrToInt('1234') ;
Button2.Enabled := True ;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
d := a + b + c ;
ShowMessage(IntToStr(d)) ; //1234
end;
'edit5'is not a valid integer value
怎么回事?
因为在Create时Edit1里面的字符串还不是整型数字的字符串呢。