Question

delphi中提示'THEN'expected but ':=' found错误

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=edit1.Text;
if strtobool(s) :=red then //我这里不转换为布尔型。。提示错误让我必须转换为布尔型。。转换之后。。就提示如题错误
label1.Caption:='窗口颜色为红色';
else
label1.Caption:='请输入red';

end;

我是初学者哈。自学的，很多不懂。。上面是个很简单的程序。不懂为什么一直报错= =
对于'howlshadow'的答案。我想问下。。如果我改成true，那我怎么判断edit1里面输入的值为red???
对于'shiwanqxu'的答案。我这样改了后。他还是弹错误显示这里必须使用布尔型
对于'刘选治'的答案。我之前就试过了。。下面弹错误显示 未说明标识符‘red’

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;

Answer 2

strtobool是字符串转布尔函数，所以一定要和布尔的变量进行比较

if strtobool(s) :=red then 要改成下面这样

if strtobool(s) = true then （注意等号前不能加冒号，加冒号就成赋值操作符了，而不是比较操作符了）

Answer 3

把if strtibool(s):=red then
改为
if s='red' then 即可

Answer 4

if 后面是关系符 不是赋值符 if后面跟= 不能跟：=