会C++的进来看看!谢谢

Question

这个函数翻译成delphi 的怎么写？谢谢了
bool CheckPlayEnd ( TRUNK_STRUCT *pOneTrunk, Acs_Evt_t *pAcsEvt )
{
Acs_MediaProc_Data *pMediaData = NULL; if ( pAcsEvt->m_s32EventType == XMS_EVT_PLAY )
{
pMediaData = (Acs_MediaProc_Data *) FetchEventData(pAcsEvt);
if ( pMediaData->m_u8TaskID == pOneTrunk->u8PlayTag )
return true;
} return false;
}

Answer 1

type
  PTRUNK_STRUCT = ^TRUNK_STRUCT;
  PAcs_Evt_t = ^Asc_Evt_t;
  PAcs_MediaProc_Data = ^Acs_MediaProc_Data;
function CheckPlayEnd ( pOneTrunk: PTRUNK_STRUCT ; pAcsEvt: PAcs_Evt_t ): Boolean; 
var
  pMediaData: PAcs_MediaProc_Data;
begin
  Result := True;
  pMediaData := NIL;   if ( pAcsEvt^.m_s32EventType = XMS_EVT_PLAY ) then
  begin 
    pMediaData := PAcs_MediaProc_Data ( FetchEventData(pAcsEvt)); 
    if ( pMediaData^.m_u8TaskID = pOneTrunk^.u8PlayTag ) then
      Exit; 
  end;   Result := false; 
end;