Delphi'de örnek referans?

Question

C++ 'da bu' Delphi eşdeğeri nedir? Kullanımının bazı örneklerini verir misiniz?

Answer 1

Çoğu durumda, yöntemlerde self kullanmamalısınız. Eğer akımı belirtmek istediğinizde

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 kullanılacak: örtük bir self. öneki varsa gibi bir sınıf yöntemi içinde, sınıf özelliklere ve yöntemlere erişmek Aslında

, bu kadar Başka bir yönteme veya nesneye nesne. Örneğin

: Bu Yukarıdaki kod TMyClass örneğine işaret List.Objects [] ile, TStrings listesine öğe ekleyecektir

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; 

. Ve Listenin tüm öğeleri için durumun böyle olduğunu kontrol edecektir.

Answer 2

Delphi'de Kendilik buna denktir. Ayrıca here'da açıklandığı gibi atanabilir.