nach self.Free beenden

[Teekeks]

Hallo!
Zuerst einmal:
Ich habe folgendes Konstrukt (vereinfacht):

Delphi-Quellcode:

TKlasse2=class
  procedure Foo2;
  FKlasse1:TKlasse1;
  constructor Create(Klasse1:TKlasse1);
end;

TKlasse1=class
  FKlasse2:TKlasse2;
  procedure Foo;
  procedure DoException;
  destructor Destroy; override;
end;


procedure TKlasse2.Foo2;
begin
  FKlasse1.DoException;
  //irgendwas
end;

procedure TKlasse1.Create(Klasse1:TKlasse1);
begin
  FKlasse1:=Klasse1;
end;

procedure TKlasse1.Foo;
begin
  FKlasse2.Foo2;
  //irgendwas
end;

procedure TKlasse1.Destroy;
begin
  FKlasse2.Free;
  inherited;
end;

procedure TKlasse1.DoException;
begin
  self.Free;
end;

So.
Hier werden zwar nach DoException die beiden Klassen freigegeben, aber das was bei irgendwas steht, wird danach immer noch ausgeführt. Wie kann ich das verhindern?

[himitsu]

Zitat:

Zitat von Teekeks (Beitrag 1040084)

Wie kann ich das verhindern?

Indem du das machst, was du da angeblich machen willst?
> eine Exception auslösen.

[mkinzler]

TKlasse1 besitzt diese Eigenschaft nicht.

Delphi-Quellcode:

procedure TKlasse1.Create(Klasse1:TKlasse1);
begin
  FKlasse1:=Klasse1;
end;

[himitsu]

das sollte bestimmt ein

Delphi-Quellcode:

constructor TKlasse2.Create

werden/sein :angle2:

[mkinzler]

Vermute ich auch.
Der Sinn erzieht sich mir aber. So etwas würde ich höchstens als "Zweit"-Konstruktor implementieren

[Teekeks]

OK. Der Sinn des ganzen soll sein das ich als Exception einen Text ausgebe (mittels Writeln) und dann das Programm beende.
Es soll keine richtige Exception ausgelöst werden (jedenfalls keine die man in der Konsole sehen kann).

Edit:

Zitat:

Zitat von himitsu (Beitrag 1040091)

das sollte bestimmt ein

Delphi-Quellcode:

constructor TKlasse2.Create

werden/sein :angle2:

Richtig :)

[mkinzler]

Dann löse trotzdem eine aus und fange sie ausserhalb der Klasse ab ( dort gibst du dann auch das Objekt frei)

[Teekeks]

Danke. So geht es.
Manchmal sieht man den Wald vor Bäumen nicht :)

[freak4fun]

Zitat:

Zitat von Teekeks (Beitrag 1040104)

Danke. So geht es.
Manchmal sieht man den Wald vor Bäumen nicht :)

[OT]Hier in der DP werden dann alle Bäume gerodet, bis auf den, den man sucht. xD[/OT]