Tetris mit Canvas funktioniert nicht wie es soll

[fox67]

Zitat von Bjoerk:

Achso. Verstehe. Probier' mal so (ungetestet):

Delphi-Quellcode:

function THaupt.CanMoveLast(const deltaX, deltaY: integer): boolean;
var
  N, I, J: integer;
begin
  Result := true;
  N := High(Block);
  for I := 0 to N - 4 do
    for J := 0 to 3 do
      if (Block[N - J].X + deltaX = Block[I].X)
        and (Block[N - J].Y + deltaY = Block[I].Y) then
          Result := false;
end;

Vielen Dank. Es funktioniert zwar noch nicht 100% aber das krieg ich noch hin