13.txt

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

15.我们来学会把一段代码写成一个单独的函数，起一个名字，目的是便于理解和多次调用
一个单元(unit)分为interface和implementation两部分，我们在interface部分TForm1中添加函数
  public
    procedure PutDown;
在implementation部分添加
procedure TForm1.PutDown;
begin

end;
把Timer1的事件中的部分代码移过来，在Timer1的事件中只要调用这个函数就行了。
procedure TForm1.PutDown;
begin
  //当一个方块到达下面要把它放下来，就是说要将
  //方块所在的那些格子填满
  if y=16 then
  begin
    Box[x,16]:=1;
    Box[x,17]:=1;
    Box[x,18]:=1;
    Box[x,19]:=1;
    //然后一个新的方块又从上面下来
    y:=0;
  end;
end;