Mein Compiler erlaubt das, gibt aber eine Warnung aus.
Hmm interessant, in diesem Fall scheint es tatsächlich zu funktionieren. Aber bei verschachtelten Funktionen geht es nicht:
Delphi-Quellcode:
procedure Test;
var Bar: integer;
procedure Foo;
begin
for Bar := 0 to 3 - 1 do
showmessage(inttostr(Bar));
end;
begin
Foo;
end;
Zitat:
[Pascal Fehler] Unit1.pas(31): E1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein