再来讲一讲游戏性: 1.敌机的速度是随机的(speeds数组里的数据由random函数提供) 2.每10秒钟会有一波敌机,但是速度会减慢。代码见下: procedure TMainForm.WaveTimer(Sender: TObject); begin if wave.Interval=10000 then begin wave.Interval:=5000; EnemyProducer.Interval:=200; EnemyMover.Interval:=60; end Else begin wave.Interval:=10000; EnemyProducer.Interval:=400; EnemyMover.Interval:=50; end; end; 可见一波攻势持续5秒钟。