Question

delphi中提示'THEN'expected but ':=' f

procedure TForm1.Button1Click(Sender: TObject); var s:string; begin s:=edit1.Text; if strtobool(s) :=red then //我这里不转换为布尔型。。提示错误让我必须转换为布尔型。。转换之后。。就提示如题错误 label1.Caption:='窗口颜色为红色'; else label1.Caption:='请输入red'; end; 我是初学者哈。自学的，很多不懂。。上面是个很简单的程序。不懂为什么一直报错= =

Answer 1

改成这样吧 procedure TForm1.Button1Click(Sender: TObject); var s:string; begin s:=edit1.Text; //将Edit1.text赋值给变量S if s='red' then //字符串比较 label1.Caption:='窗口颜色为红色' //此处不能有分号,否则Else怎么办? else //如果变量S不是'red' label1.Caption:='请输入red'; end; ----------------------------- 如果你在Else前面有好几句要写,那么你可以写成: procedure TForm1.Button1Click(Sender: TObject); var s:string; begin s:=edit1.Text; //将Edit1.text赋值给变量S if s='red' then //字符串比较 Begin label1.Caption:='窗口颜色为红色'; showmessage('你很乖，输入了red这个单词'); End else //如果变量S不是'red' Begin label1.Caption:='请输入red'; showmessage('你不乖，不输入red打屁屁'); End; end;