'END' expected but 'ELSE' found

Question

请大家帮忙看一下，我才学delohi
procedure TFrmMain.Button18Click(Sender: TObject);
var
a: string;
begin
if button18.Caption='off' then
  a:='00';
  button18.Caption:='on'
else
  a:='01';
  button18.Caption=:'off';
end;
[Error] main.pas(2125): 'END' expected but 'ELSE' found

Answer 1

procedure TFrmMain.Button18Click(Sender: TObject);
var
a: string;
begin
if button18.Caption='off' then
  a:='00';
  button18.Caption:='on'
else
  a:='01';
  button18.Caption=:'off';
end;//////少了一个END
end

Answer 2

procedure TFrmMain.Button18Click(Sender: TObject);
var
a: string;
begin
if button18.Caption='off' then begin
  a:='00';
  button18.Caption:='on'
end else begin
  a:='01';
  button18.Caption=:'off';
end;

Answer 3

if button18.Caption='off' then
begin
  a:='00';
  button18.Caption:='on';
end else
begin
  a:='01';
  button18.Caption=:'off';
end;

Answer 4

procedure TFrmMain.Button18Click(Sender: TObject);
var
a: string;
begin
if button18.Caption='off' then
begin
  a:='00';
  button18.Caption:='on'
end
else
begin
  a:='01';
  button18.Caption=:'off';
end;////// 上面还是少了东西
end建议安装CNpack 这样在delphi里面看代码 结构比较清晰