Self welche Unit ?

[Christian Seehase]

Moin Homer,

Das Formular war nur ein Beispiel.

Anderes Beispiel:

Delphi-Quellcode:

type
  TMyClass = class(TObject)
  private
    FList : TStringList;
  public
    constructor Create(const AsValue : string);
    destructor Destroy; override;
    procedure Add(const AsValue : string);
  end;

implementation

constructor TMyClass.Create(const AsValue : string);
begin
  inherited Create;
  FList := TStringList.Create;
  self.Add(AsValue); // Self ist gleich der Variablen, die die Instanz der Klasse TMyClass enthält
end;

destructor TMyClass.Destroy;
begin
  FreeAndNil(FList);
  inherited;
end;

procedure TMyClass.Add(const AsValue : string);
begin
  FList.Add(AsValue);
end;