C++代码转DELPHI(200)

有没有达人把这段C++代码转为DELPHI代码。H文件如下：class CBasicThink {public: CBasicThink();
virtual ~CBasicThink();
void GetGoodTeam(int &pai1,int &pai2,int &pai3);
//获得出牌三张组合 void SetMjPaiArray(int *nPailist, int nNum);
//设置麻将组 int GetBadly();
//获得最差的牌 int GetMaxScore();
//获得最大分值protected: void SetTeamPai(int type);
//设置出牌组合 bool IsEdge(int pai1,int pai2);
//门子是否是边缘 void SortMj(int *who,int end);
//整理 bool IsStepTeam(int pai,int &pos1,int &pos2);
//判断总牌中是否有顺子 bool IsSameTeam(int pai,int &pos1,int &pos2);
//判断总牌中是否有3个的 bool IsStepTeamThree(int pai,int type,int &pos1,int nStart);//判断剔除三张以后是否存在门子 bool IsSameTeamThree(int pai,int &pos1,int nStart);
//判断剔除三张以后是否有对子 int FindPos(int pai,int nStart=0);
//查找牌在总牌中存在位置 int FindPosThree(int pai,int nStart=0);
//查找牌在剔除三张组合后的存在位置protected: int m_nMajiang[14];
int m_nRemainThree[14];
//三张剔除后剩余的牌 int m_nRemainTwo[14];
//两张剔除后剩余的牌 bool m_bMjSelect[14];
//麻将是否被选择 int m_nPaiTeamThree[15];
//三张牌的组合 int m_nCheckNum;
//三张牌的组合数 int m_nGoodTeamThree[3];
//临时派组 int m_nTotalTeam[3];
//最总派组 int m_nNeedPai;
//需要的那长牌 int m_nRemainNumThree,m_nRemainNumTwo,m_nRemainNumOne;
//每次剔除后剩余的牌 int m_nMjNum;
//麻将的数量 int m_nScoreThree,m_nScoreTwo;
//遍历后的3张和两张的分数 int m_nMaxScoreThree,m_nMaxScoreTwo,m_nMaxScoreOne;
//各组合最大的分数 int m_nBadly;
//最差的一张牌 bool m_bHaveDui;
//是否有将};
CPP 文件如下：#include "stdafx.h"#include "Mahjong.h"#include "BasicThink.h"#ifdef _DEBUG#undef THIS_FILEstatic char THIS_FILE[]=__FILE__;#define new DEBUG_NEW#endif//////////////////////////////////////////////////////////////////////// Construction/Destruction//////////////////////////////////////////////////////////////////////CBasicThink::CBasicThink():m_bHaveDui(false){}CBasicThink::~CBasicThink(){}/*************************************************************//*函数功能：设置麻将组/*入口参数：指针（麻将数组），整型（数量）/*返回类型：void/*************************************************************/void CBasicThink::SetMjPaiArray(int *nPailist, int nNum){ for( int i = 0;i < 14;i++ ) { m_bMjSelect = false; } m_nCheckNum = 0; m_nMaxScoreThree = m_nMaxScoreTwo = m_nMaxScoreOne = 0; m_nMjNum = nNum; m_nScoreThree = m_nScoreTwo = 0; m_nBadly = -1; for(int j = 0;j < nNum;j++) { m_nMajiang[j] = nPailist[j]; } m_nNeedPai = nPailist[nNum-1]; //设置需要的牌为最后一张 SortMj(m_nMajiang,nNum); //整理牌}/*************************************************************//*函数功能：整理牌/*入口参数：指针（牌的数组），整型（结束位置）/*返回类型：void/*************************************************************/void CBasicThink::SortMj(int *who,int end){ int i,j,nPai; for( i = 0 ;
i < end-1 ;
i++ ) { for( j = i+1 ;
j < end ;
j++ ) if( who > who[j] ) { nPai = who; who = who[j]; who[j] = nPai; } }}/*************************************************************//*函数功能：获得考虑后的最大分数/*入口参数：无/*返回类型：整型/*************************************************************/int CBasicThink::GetMaxScore(){ return m_nMaxScoreThree + m_nMaxScoreTwo;}/*************************************************************//*函数功能：获得最差的那张牌/*入口参数：无/*返回类型：整型/*************************************************************/int CBasicThink::GetBadly(){ return m_nBadly;}/*************************************************************//*函数功能：获得别人出牌后组合的最佳组合/*入口参数：整型，整型，整型/*返回类型：void/*************************************************************/void CBasicThink::GetGoodTeam(int &pai1, int &pai2, int &pai3){ pai1=m_nTotalTeam[0]; pai2=m_nTotalTeam[1]; pai3=m_nTotalTeam[2];}/*************************************************************//*函数功能：查找牌/*入口参数：整型（要找的那长牌），整型（开始位置）/*返回类型：整型（位置）/*************************************************************/int CBasicThink::FindPos(int pai,int nStart){ for( int i = nStart;i < m_nMjNum;i++ ) { if( m_nMajiang == pai && m_bMjSelect == false ) { return i; } } return -1;}/*************************************************************//*函数功能：从检测完三张后剩余的牌中查找牌/*入口参数：整型（要找的那长牌），整型（开始位置）/*返回类型：整型（位置）/*************************************************************/int CBasicThink::FindPosThree(int pai,int nStart){ for( int i = nStart;i < m_nRemainNumThree;i++ ) { if( m_nRemainThree == pai && m_bMjSelect == false ) { return i; } } return -1;}/*************************************************************//*函数功能：是否有3张一样的/*入口参数：整型，整型，整型，/*返回类型：布尔，真就是有/*************************************************************/bool CBasicThink::IsSameTeam(int pai,int &pos1,int &pos2){ pos1 = FindPos(pai); if( pos1 == -1 ) { return false; } pos2 = FindPos(pai,pos1+1); if( pos2 == -1 ) { return false; } return true;}/*************************************************************//*函数功能：是否有3张顺子的/*入口参数：整型，整型，整型，/*返回类型：布尔，真就是有/*************************************************************/bool CBasicThink::IsStepTeam(int pai,int &pos1,int &pos2){ if( pai >= 27 ) { return false; } int nPai1 = pai+1; int nPai2 = pai+2; //判断是否有字是否在一个类别中 if( nPai1/9 != nPai2/9 || nPai1/9 != pai/9 || nPai1 >= 27 || nPai2 >= 27 ) { return false; } pos1 = FindPos(nPai1); pos2 = FindPos(nPai2); if( pos1 != -1 && pos2 != -1) { return true; } else
{ return false; }}/*************************************************************//*函数功能：检测两张组合是否是边缘的（0或8）/*入口参数：整型，整型/*返回类型：布尔，真就是有/*************************************************************/bool CBasicThink::IsEdge(int pai1,int pai2){ if( pai1%9 == 0 || pai2%9 == 8 ) { return true; } return false;}/*************************************************************//*函数功能：在三张检测后查找是否有对子/*入口参数：整型，整型，整型，/*返回类型：布尔，真就是有/*************************************************************/bool CBasicThink::IsSameTeamThree(int pai,int &pos1,int nStart){ pos1 = FindPosThree(pai,nStart); return pos1 == -1 ? false:true;}/*************************************************************//*函数功能：在三长检测后查找是否有两个的组合/*入口参数：整型，整型，整型，整型/*返回类型：布尔，真就是有/*************************************************************/bool CBasicThink::IsStepTeamThree(int pai,int type,int &pos1,int nStart){ if( pai >= 27 ) { return false; } int nPai1; if(type == 1) { nPai1 = pai+1; } else
{ nPai1 = pai+2; } //判断两牌是否同色是否是字 if( nPai1/9 != pai/9 || nPai1 >= 27 ) { return false; } pos1 = FindPosThree(nPai1,nStart); return pos1 == -1 ? false:true; }/*************************************************************//*函数功能：设置3张的组合/*入口参数：整型（种类）/*返回类型：void/*************************************************************/void CBasicThink::SetTeamPai( int type){ switch(type) { case 0: //3张一样的 m_nGoodTeamThree[0] = m_nGoodTeamThree[1] = m_nGoodTeamThree[2] = m_nNeedPai; break; case 1: m_nGoodTeamThree[0] = m_nNeedPai; m_nGoodTeamThree[1] = m_nNeedPai+1; m_nGoodTeamThree[2] = m_nNeedPai+2; break; case 2: m_nGoodTeamThree[0] = m_nNeedPai-1; m_nGoodTeamThree[1] = m_nNeedPai; m_nGoodTeamThree[2] = m_nNeedPai+1; break; case 3: m_nGoodTeamThree[0] = m_nNeedPai-2; m_nGoodTeamThree[1] = m_nNeedPai-1; m_nGoodTeamThree[2] = m_nNeedPai; break; }}

晕，这么简单的代码还要找人转吗？

注释详细，思路清楚，挺好

楼上两个老家伙还来逛[]代码没有特别处,基本是体力活儿,估计没人帮你翻译.

都比我老

嗯，是有些难度～