Forum: Programmieren allgemein
by dizzy,
4. Okt 2004
Die "if not ende" kann man aber auch weg lassen, da die while-schleife eh nicht betreten würde ;)
Forum: Programmieren allgemein
by dizzy,
4. Okt 2004
Ach: Mit dem Flag das kann man auch noch so machen:
i := 1;
j := 1;
k := 1;
doBreak := false;
while (i<=1000) and not doBreak do
begin
while (j<=1000) and not doBreak do
Forum: Programmieren allgemein
by dizzy,
3. Okt 2004
Die Formatierung ist ja grausig :)
Entweder wie bereits erwähnt mit nem Flag, oder du lagerst die Schleifen in eine eigene Prozedur aus, und springt dann mit "Exit" raus. Da du, vermute ich mal, i, j und k nachher noch brauchst könnte man sie als var-Parameter übergeben:
procedure Schleifchen(var i,j,k: Integer);
begin
for i:= 1 to 1000 do
begin
for j:= 1 to 1000 do
begin