Zugriff auf procedure und funktionen nicht instanziierter Klassen / Objekte

[Bjoerk]

Beispiel:

Delphi-Quellcode:

type
  TMyStringList = class(TStringList)
    procedure DoSomeThing(List: TMyStringList);
  end;

  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;


procedure TMyStringList.DoSomeThing(List: TMyStringList);
begin
  List.Add('Test');
  ShowMessage(IntToStr(List.Count));
  // ShowMessage(IntToStr(Self.Count));  *** AV
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  List: TMyStringList;
begin
  List.DoSomeThing(TMyStringList.Create);
  List.Free;
end;

end.