Q&A

  • C소스를 델파이로 변경 할려고 합니다. 도움좀 부탁드립니다.
아래 소스코드를 파스칼(델파이)로 변경 하고자 합니다. C를 전혀 해보지 않아서 어떻게 해야 할지 알수가 ㅇ벗네요. 고수님들의 도움을 부탁드리고자 이렇게 질문드려 봅니다.
염치 없는 부탁이지만 좀 부탁드립니다.

void CPhoneNoDlg::PopulateLines()
{
    LPLINEDEVCAPS   pldc = 0;
    for( DWORD nLineID = 0; nLineID < m_nLines; nLineID++ )
    {
        if( ShouldShowLine(nLineID) &&
            ::MyGetLineDevCaps(m_hLineApp, m_aApiVersions[nLineID], nLineID, &pldc) == 0 )
        {
            CString sLine;
            sLine.Format("Line %d: %s", nLineID + 1, ::MyGetLineName(pldc));
            int nIndex = m_listLines.AddString(sLine);
            if( nIndex >= 0 )
            {
                m_listLines.SetItemData(nIndex, nLineID);

                if( nLineID == m_nLineID )
                {
                    m_listLines.SetCurSel(nIndex);
                }
            }
        }
    }

    ::free(pldc);
}


LPCSTR MyGetLineName(
    LINEDEVCAPS*    pd)
{
    ASSERT(pd);
    return (pd->dwLineNameSize ? (LPCSTR)(BYTE*)pd + pd->dwLineNameOffset : "");
}
1  COMMENTS
  • Profile
    장성호 2008.08.09 02:13

    && --> and
    == --> =
    { --> begin
    } --> end 또는 end;
    & --> @

    기타 변수는
    함수 시작 begin 앞에 모두 선언하시구..

    대충 저런식으로...