کد معادل c++ در دلفی

[male_violet]

با سلام از دوستان و تبریک سال نو اگه ممکنه می خواستم نظر دوستان راجع به تبدیل این کد به دلفی رو بدونم ممنونم از همه


void Schedule::Mutation()
{

if( rand() % 100 > _mutationProbability )
return;


int numberOfClasses = (int)_classes.size();

int size = (int)_slots.size();


for( int i = _mutationSize; i > 0; i-- )
{

int mpos = rand() % numberOfClasses;
int pos1 = 0;
hash_map<CourseClass*, int>::iterator it = _classes.begin();
for( ; mpos > 0; it++, mpos-- )
;


pos1 = ( *it ).second;

CourseClass* cc1 = ( *it ).first;


int nr = Configuration::GetInstance().GetNumberOfRooms();
int dur = cc1->GetDuration();
int day = rand() % DAYS_NUM;
int room = rand() % nr;
int time = rand() % ( DAY_HOURS + 1 - dur );
int pos2 = day * nr * DAY_HOURS + room * DAY_HOURS + time;


for( int i = dur - 1; i >= 0; i-- )
{

list<CourseClass*>& cl = _slots[ pos1 + i ];
for( list<CourseClass*>::iterator it = cl.begin(); it != cl.end(); it++ )
{
if( *it == cc1 )
{
cl.erase( it );
break;
}
}


_slots.at( pos2 + i ).push_back( cc1 );
}


_classes[ cc1 ] = pos2;
}
inline const vector<list<CourseClass*>>& GetSlots() const { return _slots; }
CalculateFitness();
}

[BORHAN TEC]

سلام
با نگاهی کلی میشه فهمید که این کد مربوط به Qt است(مکانیزم اسلات و سیگنال). همیشه تبدیل کدها از یک زبان به زبان دیگر یکی از دشوارترین کارها در دنیای برنامه نویسی بوده و هست مخصوصاً زمانی که فریمورک های مورد استفاده کاملاً متفاوت باشند. در چنین شرایطی بهترین کار این است که توابع مربوطه را از یک DLL استاندارد صادر کرده و در زبان دیگر از آن استفاده کنیم. در چنین شرایطی این توابع باید به صورتی طراحی شوند که پارامترهای تابع هم شامل نوعهای داده ای ساده باشد و از نوع کلاسهای خاص آن زبان نباشد.
موفق باشید...

[male_violet]

کسی می تونه فقط کدهای زیر رو توی دلفی شبیه سازی کنه؟ ممنون میشم

hash_map<CourseClass*, int>::iterator it = _classes.begin();
pos1 = ( *it ).second;

if( *it == cc1 )
_courses.insert( pair<int, Course*>( c->GetId(), c ) );