在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实例.它将检查列表中所有项目的情况.