fehler bei break?

[Mick]

hi,

ich habe hier eine einfache for schleife mit ner if (break) for kommt aber der mekkert(kompiliert nicht) bei dem break?

Code:

     for i:=1 to 4 do  {auf sortiert prüfen}
     begin
          if feld[i+1]>feld[i] then
             break;  {wenn nicht sortiert abbruch}
     end;

und sagt mir was von Unknown identifier was stimmt denn da nicht?

ich kann da grad keinen fehler sehen

Mick

[Sharky]

Zitat von Mick:

...und sagt mir was von Unknown identifier was stimmt denn da nicht?
..

Hai Mick,

ich dann auch keinen Fehler sehen. Bei mir wird ohne Probleme compiliert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 feld     : Array [1..4] of Integer;
 i        : Integer;
begin
 for i:=1 to 4 do  {auf sortiert prüfen}
  begin
   if feld[i+1]>feld[i] then
    begin
     break;  {wenn nicht sortiert abbruch}
    end;
  end;
end;

[Mick]

oje,

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

[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;

[Mick]

ich habe es nun mit der repeat until und funst, danke

Code:

 i:=0;
     repeat 
     
           i:=i+1;
     until (feld[i+1]<feld[i]) or (i=5);

gruß
Mick