Delphi中的实例引用?

时间:2011-07-22 22:14:08

标签: delphi freepascal

在C ++中Delphi相当于'this'是什么?你能举一些使用它的例子吗?

2 个答案:

答案 0 :(得分:9)

在delphi中,Self就相当于此。它也可以按照here

中的描述进行分配

答案 1 :(得分:3)

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

实际上,就像在类方法中访问类属性和方法时是否存在隐式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实例。它将检查列表中所有项目的情况。