一个小问题？

Question

和VB不太一样啊edit1.text:='100';
edit2.text:='100';怎样把相加的内容符给edit3.text呢？

Answer 1

在Edit2的OnExit事件里加一句；
procedure TForm1.Edit2Exit(Sender: TObject);
begin
  //如果是数字相加转换一下
  edit3.Text := FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text));
  //如果是字符直接加吧
  edit3.Text := Edit1.Text + Edit2.Text;
  
end;

Answer 2

edit3.text:=inttostr(ststoint(edit1.text)+ststoint(edit2.text));

Answer 3

同意jlnyk
edit3.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));

Answer 4

edit* 是指单行编辑器吗?搂主没给定义。不过编辑器的text属性是String。操作可参照String的操作