How about:
	Counter:= 8;
	While Counter >= 1 do
	Begin
		If .... Then
			...
		Else
			Counter:= 1;
		Counter-= 1;
	End;

?

Perhaps there is a switch that allows assignments to for-loop counters (although I doubt it), I don't know.

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;

Thanks
Sudarshan

You should probably compile the code with -Mtp to switch FPC into (mostly) TP-compatible mode. There are more differences between TP and FPC that you'll encounter otherwise.

Jonas

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?

You should probably compile the code with -Mtp to switch FPC into

(mostly) TP-compatible mode. There are more differences between TP and FPC that you'll encounter otherwise.

As an alternative to the command line option -Mtp you can also add {$mode tp} at the top of the source file (before the uses-clause at least).

Regards,
Sven

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).

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

"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).

One shouldn't assume anything about the loop variable after the execution of the loop anyway *except* the loop was left using Break or Goto.

Regards,
Sven

How about :
  Filename := Trim(Filename);

Juha

Juha Manninen wrote

How about : Filename := Trim(Filename);

The original code removes trailing spaces only, and Trim() removes more than spaces (and it removes leading blanks as well).

Bart

Bart wrote

The original code removes trailing spaces only, and Trim() removes more than spaces (and it removes leading blanks as well).

  Filename := TrimRight(Filename);

:)

Juha

In our previous episode, Juha Manninen said:

or

    Filename := TrimRightSet(Filename,[' ']);

:-)