Schleifenproblem

THF · Beiträge: 110 Vista Delphi 2005 professional

Hallo,

Ich habe folgendes Problem:
Ich habe 2 for - Schleifen,
wenn in der untergeordneten Schleife ein Ereignis eintritt,
sollen beide Schleifen gestoppt werden.

Wenn ich break reinschreibe oder break;break; dann wird nur
die untergeordnete Schleife gestoppt ,
weil er zum zweiten break gar nicht kommt.
Oder ? ? ?
Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

 for i:= 1 to 10 do
      for j:= 1 to 10 do
begin
       if (i+j+x) =100
              then 
                  break;break;  
end;

Gruß

THF

Gausi · Verfasst: Mi 09.03.05 21:23

vielleicht so?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

for i:= 1 to 10 do
begin
  for j:= 1 to 10 do
    if (i+j+x) =100 then 
    begin
      abbruch:=True;
      break;
    end;

  if abbruch then break;
end;

Edit: Code korrigiert

_________________
We are, we were and will not be.

THF · Beiträge: 110 Vista Delphi 2005 professional

Hallo Gausi,

so könnte es funktionieren,ich werde es mal ausprobieren.

Du hast das Problem verstanden.

Danke

Gruß

THF

Spaceguide · Beiträge: 552 (D3/D7/D8) Prof.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

 label ENDE;
 var i,j : integer;
begin
 for i:= 1 to 10 do
 begin
  for j:= 1 to 10 do
   if (i+j) =100 then
   begin
    goto ENDE;
   end;
 end;
 ENDE:
end;

MUHAHAHAHAHHA :shock:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme