Sinnvoller Einsatz von goto

[Tyrael Y.]

Zitat von himitsu:

Zitat von Tyrael Y.:

Wenn es um die Lesbarkeit geht ist folgende Variante,

Wenn ich mich nicht irre, sollte der Compiler hier etwas vonwegen "Result könnte undefiniert sein" von sich geben.

Hast Recht himitsu, denk dir einfach ein try finally drumherum

Zitat von Tyrael Y.:

Delphi-Quellcode:

function DemoThread(const AParentHandle : THandle): Integer;
var
  i: Integer;
begin
  try
    for i := 0 to 9 do
    begin
       ...
    end;

    if not Abort then 
    begin
      SendFinished(AParentHandle);
    end;
  finally
    Result := 0;
  end;
end;