有关属性传值

procedure TGameProcessTable.SendGetCard;

begin

m_StartPlayer.Cards[m_StartPlayer.nCard] := m_GetCard;

end; 

--------------------------------------------

  TGameTable = class

    m_StartPlayer      : TGamePlayer;

--------------------------------------------

  TGamePlayer = class(TPlayer)

  public

    nCard: ShortInt;
    Cards: array[0..79] of TCard; 

---------------------------------------------

  TGameProcessTable=class(TGameTable)

    m_GetCard             : TCard;