Break/Exit verwenden?

[Narayana]

Moin,

oft kann man ein break auch umgehen, wenn man aus einer for eine while scheife macht...

Delphi-Quellcode:

function bla: char; 
const 
  C = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; 
var 
  I: Integer; 
begin 
  Result := #0; 
  I := 1;
  while I <= Length(C) do 
  begin 
    if C[I] = 'B' then 
    begin
      Result := 'B';
      I := Length(C);
    end; 
    inc(I);
  end; 
end;

Damit bricht man die Schleife auch vorzeitig ab.
Ich persönlich finde das immernoch besser als ein break, aber da denkt sicherlich jeder anders drüber