Objekt soll Referenz auf sich zurückliefern

[pingun]

Hallo,
ich habe ein Problem und komme nicht weiter.

Ein Objekt soll die Referenz auf sich als Resultat zurückliefern.
Also nach dem Motto. Wenn du getroffen bist, dann liefere dich selbst zurück.
Im aufrufenden Programm kann dann die aktiveFigur auf die getroffene Figur
gesetzt werden.

Wie kann "das Objekt sich selbst zurückliefern?"

Hier der Programmcode einer Methode eines Qbjektes (result := self
funktioniert nicht!):

Code:

function TQuadrat.getroffen (pHPosition: real; pVPosition: real) : TFigur;
begin
   if ((pHPosition > self.gibHPosition) AND (pHPosition < self.gibHPosition+zGroesse)
        AND (pVPosition > self.gibVPosition) AND (pVPosition < self.gibVPosition+zGroesse)) then
   // dies ist die Figur
   begin
     hatStift.zeichneRechteck(10,10);
     result := Self;
   end
   else
     begin
       if (kenntNachfolger <> NIL) then
       begin
         kenntNachfolger.getroffen(pHPosition,pVPosition);
       end
       else result := NIL;
     end
end;

Aufrufen will ich es:

Code:

    aktiveFigur.deaktiviere;
      // checken, welches Quadrat getroffen wurde
      aktiveFigur := meineFiguren.getroffen(dieMaus.hPosition,dieMaus.vPosition);
      aktiveFigur.aktiviere;

Für Hilfe wäre ich sehr dankbar.
Gruss
Gunnar

[leddl]

Wie sind TFigur und TQuadrat definiert? Ist TQuadrat von TFigur abgeleitet?

[pingun]

Hallo,

TFigur ist die abstrakte Klasse. TQuadrat (und dann TKreis) sind davon abgeleitet. Methode getroffen wird in TQuadrat und TKreis überschrieben.

Gruss
Gunnar

[Dax]

Wie ist meineFiguren definiert?

[leddl]

OK, grundsätzlich müsste es also funktionieren. Allerdings kann man mit "funktioniert nicht" nicht sonderlich viel anfangen. ;) Welche Fehlermeldung bekommst du denn genau?
Versuch mal, als Rückgabewert nicht TFigur, sondern TQuadrat anzugeben.

[pingun]

Hallo,

meineFiguren ist vom Typ TFigur;

Sorry Fehlermeldung bedeutet: das Objekt wird nicht zurückgeliefert. Er macht nicht. Er kommt in die Verzweigung, in der result:=self; steht. Das läuft. Aber wenn ich das zweite Quadrat anklicke, wird dieses kleine Quadrat (hatStift.zeichneRechteck(10,1) gezeichnet, aber das aktuelle Objekt kommt nicht zurück.
Im Hauptpgrogramm wird also aktiveFigur nicht gesetzt.

Zitat:

Versuch mal, als Rückgabewert nicht TFigur, sondern TQuadrat anzugeben.

Es ändert sich nichts. Er macht ja auch keine Fehler beim Compilieren, sondern er liefert bloss das aktuelle Qbjakt nicht zurück.


Hintergrund:
In meineFigure speichere ich eine verkettete Liste mit allen Figuren, die der Benutzer erstellt. Die Liste soll dann in getroffen durchgegangen werden, bis zum Ende. Beim Treffer soll das entsprechende Objekt sich selbst zurückliefern, so dass ich das aktive Objekt drauf zeigen lassen kann.

Frage ist: wie kann das Objekt, welches getroffen wurde und vom Type TFigur ist, sich zurückliefern (auch Typ TFigur)?

Gruss
Gunnar

[Hawkeye219]

Hallo Gunnar,

Delphi-Quellcode:

// kenntNachfolger.getroffen(pHPosition,pVPosition);
Result := kenntNachfolger.getroffen(pHPosition,pVPosition);

Funktioniert es so besser?

Gruß Hawkeye

[dizzy]

Code:

function TQuadrat.getroffen (pHPosition: real; pVPosition: real) : TFigur;
begin
   if ((pHPosition > self.gibHPosition) AND (pHPosition < self.gibHPosition+zGroesse)
        AND (pVPosition > self.gibVPosition) AND (pVPosition < self.gibVPosition+zGroesse)) then
   // dies ist die Figur
   begin
     hatStift.zeichneRechteck(10,10);
     result := Self;
   end
   else
     begin
       if (kenntNachfolger <> NIL) then
       begin
         result := kenntNachfolger.getroffen(pHPosition,pVPosition); // <--------
       end
       else result := NIL;
     end
end;

Ich vermute, dass kenntNachfolger vom Typ TFigur ist, und die "getroffen"-Methode eines weiteren Objektes aufrufen soll, soweit hinterlegt. Du musst dabei dann natürlich auch das result "durchreichen", ähnlich wie bei einer Rekursion. Das Vorgehen ist auch so halb rekursiv - es wird ja immer die gleiche Methode aufgerufen, bis eine Abbruchbedingung (in dem Fall eine von zweien) erfüllt ist. Nur dass die Methoden jeweils zu unterschiedlichen Instanzen gehören, und lediglich Namen und Signatur teilen. (Sowas bastel ich auch immer gern in der Art :))

\\edit: No red box, jamjam =)

[pingun]

Hallo

Zitat:

Result := kenntNachfolger.getroffen(pHPosition,pVPosition);

Nein, damit funktioniert das auch nicht. Das würde auch bedeutet, dass er ja im nächsten Glied in der Kette das getroffen aufruft, und dass ruft dann das nächste auf. Was soll dann zurückgeliefert werden?

Das Objekt soll sich selber zurückliefern. Geht das einfach mit result:=self?


kenntNachfolger ist auch vom Type TFigur: richtig. Ich reiche das ja durch. Wenn die Trefferbedingung erfüllt ist, soll das Objekt sich dann zurückliefert. Rekursiv ist es so nicht, da es sich nicht selber aufruft, sondern durch eine Verkettung durchhangelt. Man könnte es - wie du sagst - halbrekursiv nennen.


Gruss
gunnar

[pingun]

Hallo,
hat jemand noch eine Idee?

Ich habe weiter probiert - bisher nichts...

Ist die Logik denn richtig, dass Result:=self; eine Referenz auf das Objekt zurückgibt? Oder denke ich da falsch?

Viele Grüße und danke für die bisherige Hilfe.

Gunnar