If (I>86) And (I<95) then Continue;
What does continue do exactly? Loop back to the beginning of the for loop right away? I didn't even know there was such a command.. it's not mentioned here: https://wiki.lazarus.freepascal.org/FOR..DO
only break is mentioned.
As I said, there are ways around it, and that was just a stupid example that proves it works in {$Mode TP} I have some really complicated nested for loops and changing the loop variable is really useful.. also it allows you to skip cycling around in the loop. I just don't see why having the limitation, there is no technical reason that the for loop couldn't change that I can see.. especially since it works in TP mode. Yes, I can work around it.. change to a while loop instead where or something.. where you can change variables all you want... I just don't see the point of enforcing this no-changing-the-for-loop-variable rule...
Pascal doesn't have things like step... but if I modify the for variable myself I can make it act like it had step
{$Mode TP}
Var
I:Byte;
Begin
For I := 0 to 100 do
Begin
Write(I,' ');
Inc(I,3);
End;
End.
0 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100
Or
{$Mode TP}
Var
I:Byte;
Begin
For I := 101 downto 0 do
Begin
Dec(I);
Write(I,' ');
End;
End.
100 98 96 94 92 90 88 86 84 82 80 78 76 74 72 70 68 66 64 62 60 58 56 54 52 50 48 46 44 42 40 38 36 34 32 30 28 26 24 22 20 18 16 14 12 10 8 6 4 2 0
Yes lots of ways to do these things... but could always do it with for loops with Pascal before.. and they work fine this way in FPC if you are in TP mode, so why not just allow it all the time?... just to have the flexibility to do what you want. It would just be nice to get everything to work in all my units all the time.. but if I use TP mode, then I can't do things like use case statements with strings.
James
Earlier message 37 lines
-----Original Message-----
From: fpc-pascal On Behalf Of Martin Wynne
Sent: Monday, September 9, 2019 8:53 AM
To:
Subject: Re: [fpc-pascal] Illegal counter variable?
On 09/09/2019 13:38, James Richters wrote:
> Var
> I:Byte;
> Begin
> I:=57;
> For I := I to 100 do
> Begin
> If I=87 then
> I:=95;
> Write(I,' ');
> End;
> End.
Why not:
Var
I:Byte;
Begin
I:=57;
For I := I to 100 do
Begin
If (I>86) And (I<95) then Continue;
Write(I,' ');
End;
End.
which is much easier to follow the logic.
cheers,
Martin.
