C++ to Delphi

Djutty

Кто знаком с С++ помогите перевести на делфи.int EXPORT addBinaryFragment (LPHSTRING lhField, int iAdded, int iBufLen, HSTRING hFRAGMENT) { LONG len; LPSTR lpField = SWinHStringLock((*lhField),&len); LPSTR lpFragment = SWinHStringLock(hFragment,&len);int iPOS=0;for(;iAdded < iBufLen && lpFragment[iPos] !=0 && iPos <249; ++iAdded) {unsigned char c=lpFragment[iPos];if(c=='0' ) { lpField[iAdded]=0; ++iPos;} else if(c=='&' ) { If (lpFragment[iPos+1]==0)break; if(lpFragment[iPos+1]=='0' ) lpField[iAdded]='0' ; else lpField[iAdded]='&' ; iPos+=2;}else{lpField[iAdded]=c;++iPos;}}SWinHStringUnlock(*lhField);SWinHStringUnlock(hFragment);return iAdded;}
1 ответ

Djutty

Зачем переводить функцию... отмеченную, как EXPORT.. соберите dll и используйте освободившееся время на полезную работу, а не бессмысленное конвертирование говно кода.К слову, Вы даже не сказали... как пробовали и что не получилось... с заявками на перевод Вам в раздел Работа.ps: код тупой... его можно написать в несколько раз короче.