for-Schleifen - Compiler meint es _zu_ gut!

[Neutral General]

Hi,

Folgende Situation:

Delphi-Quellcode:

procedure T3D2File.LoadFromFile(const Filename: PChar);

  procedure ReadHeader(..:);
  var k: Integer;
  begin
    for k:= 0 to 2 do // <---
    begin                            
      Read(AHeader.Lights[k].Active,SizeOf(Word)); 
      AHeader.Lights[k].Active := SwapWord(AHeader.Lights[k].Active);  
    end;
  end;

var i: Integer;
begin
  // Code
  ReadHeader(...);
  // Code
end;

Und die Schleife fängt bei 3 (!) an und hört bei 1 auf! Der Compiler kann ja meinetwegen optimieren (ich schätze daher kommt das) aber doch nicht bei sowas o.O

Gruß
Neutral General