delphi if语法,弹出提示框,不等于写法,判断是否为空


本文整理自网络,侵删。

 初学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获取网卡mac地址多个方法

Delphi向imagelist中加入png类型的资源图片

Delphi 数字签名添加器源码

Delphi 获取网页代码单元

Delphi中如何用一个按钮控制开与关两个状态

Delphi getfilesize 获取文件大小 2

Delphi tms web core 判断是否包含汉字

Delphi 判断字符串是否为纯字母组合

Delphi 附加数据读取

Delphi 获取系统所有磁盘盘符

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...