请大家帮忙看一下,我才学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
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
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
var
a: string;
begin
if button18.Caption='off' then begin
a:='00';
button18.Caption:='on'
end else begin
a:='01';
button18.Caption=:'off';
end;
begin
a:='00';
button18.Caption:='on';
end else
begin
a:='01';
button18.Caption=:'off';
end;
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里面看代码 结构比较清晰