Question

delphi 请高手帮我写一下代码 通过edit change实现edit1.text+edit2.text+。。。。。。=edit10

如果我输入edit1，edit2.。。。。任何一个数字应该edit10的值发生变花就可以了。。。。怎么实现这个过程啊

Answer 1

你是想计算和吗？
在eidt1的change事件里写上
edit10.text := inttostr(strtoint(TEdit1.text) +strtoint(TEdit2.text) +.....)
然后其他的edit的change事件引用edit1
这样就可以求出和了

Answer 2

ender:TObject);
begin
if StrToInt(Edit1.Text)>StrToInt(Edit2.Text) then
Label1.Caption:=Edit1.Text
else
Label1.Caption:=Edit2.Text;
end;

Answer 3

每个edit的change事件里都写上edit1.text+edit2.text+。。。。。。=edit10 不就可以了吗

Answer 4

procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit10.Text:=IntToStr(strtoint(Edit1.Text)+strtoint(Edit2.Text)+strtoint(Edit3.Text)
+strtoint(Edit4.Text)+strtoint(Edit5.Text)+strtoint(Edit6.Text)+strtoint(Edit7.Text)
+strtoint(Edit8.Text)+strtoint(Edit9.Text));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.OnChange:= Edit1Change;
Edit2.OnChange:= Edit1Change;
Edit3.OnChange:= Edit1Change;
Edit4.OnChange:= Edit1Change;
Edit5.OnChange:= Edit1Change;
Edit6.OnChange:= Edit1Change;
Edit7.OnChange:= Edit1Change;
Edit8.OnChange:= Edit1Change;
Edit9.OnChange:= Edit1Change;
end;