一个if语句的问题

Question

如果在edit1中输入2
然后edit2自动输入3
edit3中自动输入4
如果在edit1中输入7
然后edit2自动输入8
edit3中自动输入9这样的一段程序怎样编写？？？

Answer 1

procedure TForm19.Edit1Change(Sender: TObject);
var
  i: Integer;
begin
  if TryStrToInt(Trim(Edit1.Text), i) then
  begin
    Edit2.Text := IntToStr(i + 1);
    Edit3.Text := IntToStr(i + 2);
  end;
end;

Answer 2

郁闷。自己不会好好看看书啊？  edit2.text:= IntToStr(StrToInt(edit1.text) + 1);
  edit3.text:= IntToStr(StrToInt(edit1.text) + 2);

Answer 3

if StrToIntDef(Edit1.Text, 0) = 2 then begin
  Edit2.Text := '3';
  Edit3.Text := '4';
end
else if StrToIntDef(Edit1.Text, 0) = 7 then begin
  Edit2.Text := '8';
  Edit3.Text := '9';
end;

Answer 4

if Edit1.Text='2' then
begin
  Edit2.Text:=IntToStr(StrToInt(Edit1.Text)+1); 
  Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+2); 
end;if Edit1.Text='7' then
begin
  Edit2.Text:=IntToStr(StrToInt(Edit1.Text)+1); 
  Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+2); 
end;

Answer 5

procedure  TForm1.Edit1Change(Sender: TObject); 
begin
    if edit1.text<>'' then
    begin
      try 
         edit2.text:=IntToStr(StrToInt(trim(edit1.text))+1); 
         edit3.text:=IntToStr(StrToInt(trim(edit1.text))+2);
      except
         ShowMessage(Exception(ExceptObject).Message);
      end;
    end;  
end;

Answer 6

哦。。
那在eidt1的presskey事件种加个这个判断下
if not(key in['0'..'9',#8]) then 
  key:=#0;