关于自定义函数 一个判空的自定义函数

Question

比如我想判断控件(这个控件可能是text,可能是memo)里是不是空值,是空值就返回消息"不允许空值"function ifnull(....)
.....

Answer 1

function IsNull(aStr : String) : Boolean
begin
  result := true;
  if (trim(aStr)<>'') then
    result := false;
end;

Answer 2

我的本意应该是这样,呵
function IsNull(组件: ..) : Boolean
begin
  if 组件.text = '' then
     showmessage(组件.name+'不能为空');
  end;不知道组件那些位置要写些什么

Answer 3

function ifnull(Control: TWinControl): Boolean;
begin
  if (Control1 is TEdit) then
    Result := ((Control1 as TEdit).Text = '')
  else if (Control1 is TMemo) then
    Result := ((Control1 as TMemo).Text = '')
  else if ......
end;

Answer 4

TEdit和TMemo都继承自TCustomEdit;function IsNull(pCustomEdit: TCustomEdit): Boolean;
begin
  Result := PCustomEdit.Text = EmptyStr;
end;

Answer 5

那listbox这一些也是继续自tcustomedit