Tham khảo sơ thẩm trong Delphi?

Question

Tương đương Delphi của 'this' trong C++ là gì? Bạn có thể vui lòng đưa ra một số ví dụ về việc sử dụng nó không?

Answer 1

Trong hầu hết các trường hợp, bạn không nên sử dụng self trong các phương pháp.

Trong thực tế, nó giống như nếu có một tiềm ẩn self. prefix khi bạn truy cập các thuộc tính lớp và phương pháp, trong vòng một phương pháp học:

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; 

Các self được sử dụng khi bạn muốn xác định hiện tại đối tượng với một phương thức hoặc đối tượng khác.

Ví dụ:

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; 

mã trên này sẽ thêm một mục vào danh sách TStrings, với List.Objects [] trỏ đến các trường hợp TMyClass. Và nó sẽ kiểm tra này đã được các trường hợp cho tất cả các mục của Danh sách.

Answer 2

Trong delphi Self là tương đương với điều này. Nó cũng có thể gán như được mô tả trong here.