Hi Leute,
ich hab folgenden Code:
Delphi-Quellcode:
var I: Integer;
Image: Array[1..13] of TImage;
begin
for I := 0 to 12 do
if (Image[I+1].Top = 96) and (Image[I+1].Left = 8) then Image[I+1].Top := 48
else if (Image[I+1].Top = 48) and (Image[I+1].Left = 536) then Image[I+1].Top := 96
else if (Image[I+1].Top = 96) and (Image[I+1].Left = 536) then Image[I+1].Top := 144
else if (Image[I+1].Top = 144) and (Image[I+1].Left >= 9)then Image[I+1].Left := Image[I+1].Left - 8
else if (Image[I+1].Top = 144) and (Image[I+1].Left = 8) then Image[I+1].Top := 96
else Image[I+1].Left := Image[I+1].Left + 8;
end;
allerdings krieg ich in der forschleife schon beim zweiten mal Image[I+1] (Image[I+1].Left = 8) eine zugriffsverletzung, die sich dauernd wiederholt(durch die schleife). was mache ich falsch???
