On 6/17/2014 7:54 PM, Jim Leonard wrote:
The error is because FreePascal optimizes loops wherever it can, and
trying to modify the loop variable would break under that optimization.
While you could enable compilation flags to make things more TP
compatible, looking at the code, I can see that the 'counter:=1' is
just an early termination clause. If the variable 'counter' isn't
needed after that section, you could replace that line with 'break'
which would exit the loop immediately (which is what the code does now).
On 6/17/2014 6:05 AM, mokashe.ram wrote:
Hi,
Could Any one help me for fixing below error in free pascal. as i am
tring
to excute for loop in decemental order using 'DOWNTO' but its thwoing
error
'Illeagal assignment to For Loop variable 'Counter' as this is
possible in
TP but in Free pascal its not working so is there any workaround for
this?
FOR counter := 8 DOWNTO 1 DO
IF filename[counter] = ' 'THEN
DELETE(filename,counter,1)
ELSE
counter := 1;
A totally different solution and also more universal (not depending on
the length of the filename to be exactly 8 characters long would be
while ((Length (Filename) > 0) AND (Filename (Length (Filename) = '
') do
Delete (Filename, Length (Filename), 1);
or if you insist on using a separate integer variable
Counter = Length (Filename);
while (Counter > 0) AND (Filename [Counter] = ' ') do
begin
Delete (Filename, Counter, 1);
Dec (Counter);
end;
Ralf
---
This email is free from viruses and malware because avast! Antivirus protection
is active.
http://www.avast.com
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
