If (YouLoveVCL = true) then TReadThisNow.Create();

[stahli]

Delphi-Quellcode:

else 
begin
  RepeatLogoutNewsletter(Now);
  WaitForResult(SomeWeeks);
end;

@Himi: Gute Besserung!

PS: Wo ist denn anzfische und TuxSatt deklariert? Global? Das gibt gleich wieder Mecker!

[franktron]

In der Signatur ist so wenig Platz

[Der schöne Günther]

Toll, und ich?

Warum schreibt mir niemand?

[Sir Rufo]

Eigentlich müsste der Code ja lauten

Delphi-Quellcode:

while not Tux.Satt do
begin
  Fisch := TFisch.Create;
  try
    Tux.Esse( Fisch ); // mögliche Exception ETuxKotzt
  finally
    Fisch.Free;
  end;
end;

[Blup]

Im Sinne der Objektorientierung ist es sinnvoller, wenn Tux selber entscheidet ob er satt ist.
Zu einseitige Ernährung sollte vermieden werden, deshalb würde ich Essen nicht auf Fisch beschränken.
Ich bin in diesem Fall auch gegen die externe Freigabe gegessener Fische.
Wenn Tux die Fische frist, soll er selber entscheiden wann (und in welcher Form) er die wieder freigibt.

while not Tux.Satt do
begin Fisch := TFisch.Create; Tux.Essen(Fisch); Fisch := nil; end;

[Sir Rufo]

Ob die Entität Fisch noch als solche betrachtet werden kann, kann Tux nicht entscheiden, sondern nur die Umgebung. Genauso wie Tux nicht entscheiden kann ob es jetzt auf einmal eine Entität Fisch gibt.

Ich wäre an seiner Stelle auch vorsichtig, sonst entscheidet die Umgebung, dass die Entität Tux überflüssig ist und entledigt sich diesem Emporkömmling mit einem lapidaren Tux.Free .

[DeddyH]

Haben wir denn nun genug getuxt?