Supklasse aufrufen

[Flips]

Hi.

Habe folgendes Problem das nur halb so kompliziert ist wie die Überschrift
Also, nehmen wir an ich habe einer Procedure die TStrings einer ListBox als Parameter übergeben, ungefähr so:

Delphi-Quellcode:

procedure Machwasdamit(Items:TStrings);
begin
[...]
end;

[...]

//Aufruf
Machwasdamit(ListBox1.Items);

Kann ich nun über diese Variable "Items" irgendwie auf dessen Oberklasse (Supklasse), die ListBox-Instanz "ListBox1" zugreifen?
(Sagt bitte nicht "Schreib die Procedure doch einfach so das du die komplette ListBox übergibst" )


Liebe Grüße,
Flips

[Phoenix]

Nein.

Die einzige Möglichkeit wäre, dass das übergebne Item eine Referenz auf den Parent beinhaltet. Dann kannst Du darüber auf den Parent zugreifen. Sonst geht das nicht.