Thema: Delphi Break/Exit verwenden?

Einzelnen Beitrag anzeigen

Narayana
(Gast)

n/a Beiträge
 
#3

Re: Break/Exit verwenden?

  Alt 11. Mai 2005, 07:27
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] = 'Bthen
    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
  Mit Zitat antworten Zitat