Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
Solved

# Break-statement in TP 5.5

Posted on 2003-10-27
Medium Priority
248 Views
Hi experts
i'm using TB 5.5 (free pascal)
the problem is;
i need to write a function who compares two arrays of 4 shortint to see if 2 numbers are the same
take for example those 2 arrays
1 2 3 4
2 2 2 8

i wrote this code

FUNCTION Case1:Boolean;
Var Temp, i, j:ShortInt;
Begin
Temp:=0;
FOR i:=1 TO 4 DO
FOR j:=1 TO 4 DO
IF Digit[i]=Guess[j] THEN
Temp:=Temp+1;
IF Temp>=2 THEN Case1:=TRUE;
IF Temp<2 THEN Case1:=FALSE;
End;

the problem is that because there are in the second array more than one '2' the output = TRUE but that shouldn't be
because there is only 1 number in the two arrays who are the same

i thaught i could use the BREAK-statement like this

FUNCTION Case1:Boolean;
Var Temp, i, j:ShortInt;
Begin
Temp:=0;
FOR i:=1 TO 4 DO
FOR j:=1 TO 4 DO
IF Digit[i]=Guess[j] THEN
begin
Temp:=Temp+1;
BREAK;
end;
IF Temp>=2 THEN Case1:=TRUE;
IF Temp<2 THEN Case1:=FALSE;
End;

from an algoritmic point of view that should be good I THINK
but the BREAK statement (which is used to abort the actual loop) doesn't work in TP 5.5
could someone help me out ???

Elvis
0
Question by:Elvis1
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 3

Author Comment

ID: 9628417
or maybe you can just give me a way to go out or to skip the current loop
an alternative to the BREAK statement

Elvis
0

Accepted Solution

Elvis1 earned 0 total points
ID: 9628474
SORRY EVERYONE
i found the answe myself
to "break" a while loop i did

FOR i:=1 TO 10 DO
Begin
WriteLn(i);
IF i=5 THEN i:=10;
End;

The Output is
1
2
3
4
5

sorry
Elvis
0

LVL 17

Expert Comment

ID: 9628691
Doesn't matter. However, personally I consider the use of the Break statement something that you should avoid at all costs. Like the Goto statement and some other statements the Break statement makes the source a bit less readable.
Instead of a for-next loop you could also use a While-Do loop like this:

var
I:Integer;
EndOfLoop: Boolean;
begin
I := 0;
EndOfLoop := False;
while (I < 10) and not EndOfLoop do begin
I := I + 1;
WriteLn(I);
if (I=5) then begin
EndOfLoop := True;
end else begin
// Perhaps do some other code.
end;
end;
end;
0

Author Comment

ID: 9629893
thanks i will remember
but now i got it
thanks
Elvis
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

While opting for any web-to-print solution, you need to discuss with your team and some of your end users and know their opinions about your decisions. In this article we list down some questions you need to ask yourself.