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 :oops:

Mick

[Sharky]

Zitat:

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:

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 :D

Code:

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

gruß
Mick