UC知道Delphi小问题,大虾们来啊~
来源：百度知道 编辑：UC知道 时间：2024/06/11 05:58:48
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
t : string;
begin
if (edit1.Text :='') or (edit2.Text :='') then
showmessage('请输入数字')
else
begin
s := edit1.Text;
t :=edit2.Text;
end;
end;
end.
为什么程序总是报错哩,请大虾们不吝指正啊!
var
s : string;
t : string;
begin
if (edit1.Text :='') or (edit2.Text :='') then
showmessage('请输入数字')
else
begin
s := edit1.Text;
t :=edit2.Text;
end;
end;
end.
为什么程序总是报错哩,请大虾们不吝指正啊!
多打了一个“:”
if (edit1.Text ='') or (edit2.Text ='') then
判断空字符串最好用Lentgh
if (Length(edit1.Text)=0) or (Length(edit2.Text)=0) then
if (edit1.Text :='') or (edit2.Text :='') then
这里错了
:=`是用来赋值的
= 才是用来判断是否相等的
if (edit1.Text :='') or (edit2.Text :='') then
IF里面的判断应该用 =
你:=就成赋值了,当然错