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 通过按键 esc 关闭程序

Delphi汇编级初探

Delphi 字符串是否包含

Delphi 将base64字符串转化为jpeg图片

Delphi 10中实现android的广播接收器

Delphi取得网页源码内容

提供文件操作 单元

Delphi 10.4.1的编译器bug终于修正了!

Delphi的idhttp的基本用法

winapi 字符及字符串函数(11): lstrcpyn - 复制字符串, 同时指定要复制的长度

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



打赏

取消

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

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

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

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

评论

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