请问
  Unload Form1.VerPic(i) 和 Load Form1.HorPic(i)
是什么意思!在D中如何实现,谢谢

解决方案 »

  1.   

    释放一个控件或者数组吧。
    在D中,可能会自动销毁吧,查查D的help.
      

  2.   

    For I = 1 To 31
                Unload GAME.VERPIC(I)
            Next I
            YDLT = (GAME.Picture1.Width - 2) / XDOTS
            XDLT = (GAME.Picture1.Height - 2) / YDOTS
            I = 1
            Load GAME.HORPIC(I)
            With GAME.HORPIC(I)
                .Top = 1
                .Left = 0
                .Height = XDLT / 4
                .Width = GAME.HORPIC(I).Width
                .ZOrder (0)
            End With
            GAME.HORPIC(I).Visible = True
            For I = 2 To YDOTS ' + 1
                Load GAME.HORPIC(I)
                With GAME.HORPIC(I)
                    .Top = ((I - 2) + 3 / 4) * XDLT + 1
                    .Left = 0
                    .Height = XDLT / 2
                    .Width = GAME.HORPIC(I).Width
                    .ZOrder (0)
                End With
                GAME.HORPIC(I).Visible = True
            Next I
            Load GAME.HORPIC(I)
            With GAME.HORPIC(I)
                .Top = ((I - 2) + 3 / 4) * XDLT + 1
                .Left = 0
                .Height = XDLT / 4
                .Width = GAME.HORPIC(I).Width
                .ZOrder (0)
            End With
            GAME.HORPIC(I).Visible = Tru
    这个是所有代码