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》频道 >>

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