Delphi中的实例引用?

前端之家收集整理的这篇文章主要介绍了Delphi中的实例引用?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
在C中Delphi相当于’this’是什么?你能举一些使用它的例子吗?

解决方法

在大多数情况下,您不应该在方法中使用self.

事实上,就像有一个隐含的自我.在类方法中访问类属性方法时的前缀:

type
  TMyClass = class
  public
    Value: string;
    procedure MyMethod;
    procedure AddToList(List: TStrings);
  end;


procedure TMyClass.MyMethod;
begin
  Value := 'abc';
  assert(self.Value='abc'); // same as assert(Value=10)
end;

当您想要将当前对象指定给另一个方法或对象时,将使用self.

例如:

procedure TMyClass.AddToList(List: TStrings);
var i: integer;
begin
  List.AddObject(Value,self);
  // check that the List[] only was populated via this method and this object
  for i := 0 to List.Count-1 do 
  begin
    assert(List[i]=Value);
    assert(List.Objects[i]=self);
  end;
end;

上面的代码将向TStrings列表添加一个项目,List.Objects []指向TMyClass实例.它将检查列表中所有项目的情况.

原文链接:https://www.f2er.com/delphi/101204.html

猜你在找的Delphi相关文章