goto-befehl in delphi?

[Peinhard]

Zitat von Florian Bernd:

Es geht auch mit verschachtelten Schleifen, sogar ohne ein extra Flag zu setzen:

Delphi-Quellcode:

var 
  i, i2, i3: integer;
begin
  for i := 0 to 10 do
  begin
    for i2 := 0 to 20 do
    begin
      for i3 := 0 to 30 do
      begin
        if i3 = 15 then
          break;
      end;
      if (i3 = 15) and (i2 = 10) then
        break;
    end;
    if (i3 = 15) and (i2 = 10) and (i = 5) then
      break;
  end;
end;

Wieso denn nicht einfach die Zählervariable verwenden, die sowieso in(de)crementiert wird?

Weil sie 'per definitionem' außerhalb der Schleife 'undefiniert' ist, dh irgendeinen Wert haben kann. Die erste Abfrage von i3 ist also noch 'sicher', die zweite und dritte jedoch nicht mehr.