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 fdconnection取得excel工作表名

Delphi 创建win桌面快捷方式，实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

Delphi 让子窗体显示最大化

Delphi xe 应用程序横竖屏设置

Delphi中实现磁盘信息类(tdriveinfo)

Delphi xe10.1 引用计数

Delphi 全局变量 hinstance 到底是在什么时候赋值的?

Delphi2010中tresourcestream流使用

5种运行程序的方法具体应用实例

Delphi xe 的 tdictionary

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

转载请注明出处：木庄网络博客 » delphi if语法,弹出提示框,不等于写法,判断是否为空