delphi – 检查变量是否为零的最佳方法？

发布时间：2020-12-15 10:13:34 所属栏目：大数据来源：网络整理

导读：所有程序应该做的一个常见的条件是检查变量是否被分配。采取以下陈述： (1) if Assigned(Ptr) thenbegin // do somethingend; (2) if Ptr nil thenbegin // do somethingend; Assigned(Ptr)和Ptr零？解决方法它通常是一样的…除了你检查一个功能… functi

所有程序应该做的一个常见的条件是检查变量是否被分配。

采取以下陈述：

(1)

if Assigned(Ptr) then
begin
  // do something
end;

(2)

if Ptr <> nil then
begin
  // do something
end;

Assigned(Ptr)和Ptr<>零？

解决方法

它通常是一样的…除了你检查一个功能…

function mfi: TObject;
begin
  Result := nil;
end;

procedure TForm1.btn1Click(Sender: TObject);
type
  TMyFunction = function: TObject of object;
var
  f: TMyFunction;
begin
  f := mfi;

  if Assigned(f) then
  begin
    ShowMessage('yes'); // TRUE
  end
  else
  begin
    ShowMessage('no');
  end;

  if f <> nil then
  begin
    ShowMessage('yes');
  end
  else
  begin
    ShowMessage('no');  // FALSE
  end;
end;

使用第二种语法，它将检查函数的结果，而不是函数本身…

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!