改成这样更好:
function getsth(CurrEdit:TEdit):boolean;
begin
Result := CurrEdit.Text <> '';
end;
就是判断传入的TEdit的Text是否为不空
function getsth(CurrEdit:TEdit):boolean;
begin
Result := CurrEdit.Text <> '';
end;
就是判断传入的TEdit的Text是否为不空
解决方案 »
- 关于幂函数的问题
- TWebBrowser的OnNewWindow2
- ADO访问ORACLE数据库出现只能显示小数点后4位有效数字的问题!
- 关于INPUTBOX的小问题,在线等结帖
- MS Agent的状态
- 大侠帮助怎样在delphi5下操作xml
- 各位过来人帮我 !!!!!
- 如何关闭一个IE窗口?sendmessage(hwd,wm_close,0,0);不起作用
- 怎么将Treeview某个节点及其下的所有子节点复制到另外一棵树上呢?
- TWebBrowser 如何实现 论坛发帖呀!
- 请描叙程序优化以及大数据量的一些处理方法,技巧。
- 1000分求救,请“斑竹”和各位“Delphi高手”入内, 提供类似该问题精彩控件下载网址者,也有分哦!
我再來修改一下(通常我想空格應該也........不說了):
function getsth(CurrEdit:TEdit):boolean;
begin
Result := Trim(CurrEdit.Text) <> '';
end;