Error: Illegal counter variable

[Zeff]

Gegeben ist eine Konsolenanwendung.
Wenn ich eine Laufzeitvariable für eine For-Schleife während der Deklaration initialisiere, meckert mich der Compiler mit folgender Meldung an: Error: Illegal counter variable.

Hier der Testcode:

Code: Alles auswählen

Program TestCount;
Var l : LongInt = 0;
    z : LongInt = 0;
Begin
  For l := 1 to 10 do Writeln('z = ',z + l); //<-FPC meckert diese Zeile an.
End.

Wenn man die Initialisierung weglässt (l : LongInt), die ja eigentlich auch nicht notwendig ist, funktioniert es. Wenn man lokal in einer Procedure oder Function initialisiert,
funktioniert es ebenfalls. Das unterschiedliche Verhalten ist schon merkwürdig.

Hier mit lokaler Initialisierung klappt es:

Code: Alles auswählen

Program TestCount;
  Procedure DoIt;
  Var l : LongInt = 0;
      z : LongInt = 0;
  Begin
    For l := 1 to 10 do Writeln('z = ',z + l);
  End;
Begin
  DoIt;
End.

Ist das nun ein Fehler des Compilers, oder einer zwischen meinen Ohren?

[baumina]

Delphi XE liefert in beiden Fällen die Kompiler-Fehlermeldung : E1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein

[Mathias]

Könnte dies ein Bug sein ?
Das sollte dem Compiler eigentlich nicht weh tun, wen der Variable am Anfang schon ein Wert zugewiessen wird.

Dafür wird aber solch ein Mist ohne Fehler kompiliert.

Code: Alles auswählen

program Project1;
var
  i: integer;
 
  procedure test;
  begin
    for i := 0 to 100 do begin
      WriteLn('x');
      if i = 10 then begin
        test;
      end;
    end;
  end;
 
begin
  test;
end.  

Auch wen man mehrere Thread einsetzen würde und dabei test mehrmals aufgerufen wird, würde es Probleme geben.