俄罗斯方块10.txt

来自「学习Delphi最好的教材。通过一个个简单而实用的实例」· 文本 代码 · 共 11 行

14.当一个方块到达下面要把它放下来，就是说要将盒子(Box)的某些格子填满，所以我们用一个20*10的数组表示盒子(Box)的每个格子是空还是满
在implementation前定义
Box:array[0..19,0..9] of Integer;
修改定时器Timer1的事件的代码，当方块到下面时停下来
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  y:=y+1;
  if y=16 then Timer1.Enabled:=False;
  Repaint;
end;