Question

Delphi7关于declaration expected but if found

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (comboBox1.Text='被更高的对象或树木所包围 ') then
Edit1.Text:=('0.25')
end;
if (comboBox1.Text='被相同高度的或更矮的对象或树木所包围 ') then
Edit1.Text:=('0.5')
end;
end.

这是我的一段程序，我是新手，出现错误declaration expected but if found和一个符号错误，帮忙找一下。
急急急！！

Answer 1

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (comboBox1.Text='被更高的对象或树木所包围 ') then
Edit1.Text:=('0.25');

if (comboBox1.Text='被相同高度的或更矮的对象或树木所包围 ') then
Edit1.Text:=('0.5');
end;

end.
这样试试

Answer 2

第五行 多一个 end; 删除就可以了