kniffliges Rätsel - Compileroptimierung

[CCRDude]

Es geht auch ohne das WriteLn , z.B. mit einem expliziten Returnwert.

Delphi-Quellcode:

function bla: Boolean;
begin
   Result := false;
   for i := 1 to 10 do begin
      if i = 5 then begin
         Exit;
      end;
      if foo then begin
         Exit(false); // hier gibt es eine Haltpunktmöglichkeit
      end;
   end;
   Result := true;
end;

Oder sobald Exception-Handling in's Spiel kommt:

Delphi-Quellcode:

function bla: Boolean;
begin
   Result := false;
   try
      for i := 1 to 10 do begin
         if i = 5 then begin
            Exit;
         end;
         if foo then begin
            Exit; // hier gibt es eine Haltpunktmöglichkeit
         end;
      end;
      Result := true;
   except
      Result := false;
   end;
end;

So oder so, wegoptimiert ist der Code nicht, sondern lediglich im Debugger nicht als Breakpoint verwendbar.