Hallo,
bin leider nicht so OOP fit, deshalb eine Frage:

ich nutze ein Object TDieses = class
In TDieses ist eine Ereigniss deklariert: OnEspassiert

Nun brauche ich 10 Instanzen von diesem Object:


creieren:

Soweit so gut.

Jetzt möchte ich in einer Espassiert Procedure rauskriegen, von welcher Instanz das Ereigniss ausgelöst wurde, um dann unterschiedlich reagieren zu können.

Wie würde man das machen ?

(Es folgt natülich noch:


Danke + Gruss: Daniel

Moderiert von Narses: Delphi-Tags hinzugefügt

Hallo!

In Sender steht das Objekt, dessen Ereignis aufgerufen wird.

Viele Grüße,
Stundenplan.

Meinst du sender.classname?
Da steht TDieses drin, nicht aber die auslösenden Instanz.

Daniel

Daniel L. hat folgendes geschrieben :

Da steht TDieses drin, nicht aber die auslösenden Instanz.

Sender ist eines der TDieses. Also ein Pointer auf eines der TDieses im Array. Wenn du in einer Loop Sender mit diese[0..9] vergleichst erhälst du irgendwann true.

I enthält hiernach den Index der Instanz in Array.

oh ja - Danke!!!

NewMori hat folgendes geschrieben :

markieren Delphi-Quelltext     1: 2: 3: 4: 5: for i:=0 to 9 do     begin     if Sender=diese[i] then        break;     end;

Ja, willst du denn das Gott eine Plage auf uns sendet, so in Sünde wie du schreibst? Break ist in diesem Fall unangebracht und erhöht die Lesbarkeit des Codes überhaupt nicht. Man könnte die Schleife entweder gleich mit einer Ergebnisvariablen durchlaufen lassen oder man verwendet gleich die Abbruchbedingung als Abbruchbedingung:



Weiters sollte man sich überlegen ob es nicht sinnvoll wäre gleich beim Anlegen der TDieses ein Integer-Feld zu deklarieren in dem man dann die Position speichern kann. Dann hätte man nicht eine O(n)-Laufzeit sondern eine O(1)-Laufzeit. Bei 8 Objekten ist das ja eigentlich egal, will es nur mal erwähnt haben.

lg elundril

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

elundril hat folgendes geschrieben :

markieren Delphi-Quelltext     1: 2:   while NOT Sender = diese[i] do     inc(i);

In dem Fall muss man sich aber 100% sicher sein, dass der Sender im Array gefunden wird. Sonst läuft man Zwangsläufig auf eine Exception wenn i > high(diese) wird. Nur so als Anmerkung.

Nur mal so als kleine Anregung:
Statt eines Array's könnte man evtl. auch eleganter eine TObjectlist verwenden und in der dann recht einfach mit ObjectList.IndexOf(Sender) das richtige Objekt ermitteln.
Dadurch fällt zum einen die elende Schleifensucherei weg und zum andern bietet die Objectlist noch einige andere Vorteile.

Ich habs so gemacht

Daniel

@Daniel: Du kannst nachdem if True ist die Schleife abbrechen, da du dein Objekt ja dann schon gefunden hast und die anderen es nicht mehr sein können.

Moin!

Sofern die Liste statisch ist: das Objekt um eine Index-Property erweitern und beim Create den Index im Feld mitgeben. Dann kann man direkt darauf zugreifen.

cu
Narses