fehler bei break?

[Sharky]

Zitat von Mick:

oje,

kann ich das auch auf einem anderem wege prüfen(ob sortiert) ohne break oder die flag zu nutzen?

Mache eine Repeat-Until Schleife draus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 feld               : array[1..4] of Integer;
 i                  : Integer;
 abbruch            : Boolean;
begin
 i := 0;
 abbruch := False;
 repeat
  INC(i);
  if feld[i + 1] > feld[i] then
   begin
    abbruch := True;
   end;
 until (i = 4) or (abbruch)
end;