本文整理自网络,侵删。
初学Delphi
procedure TFrmLltj.cbb_xxlkChange(Sender: TObject);
begin
if Trim(cbb_xxlk.Text)<>'' then
begin
Showmessage('没空');
end else
Showmessage('空了');
end;
end.
procedure TFrmLltj.cbb_xxlkChange(Sender: TObject);
begin
if Trim(cbb_xxlk.Text)<>'' then
begin
Showmessage('没空');
end else
Showmessage('空了');
end;
end.
if语法:
if .. then
begin
end else
end;
弹出提示框:Showmessage('');
不等于写法:<>
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>