谁能帮我把这段C代码改为DELPHI代号 ( 积分: 100 )

  • 主题发起人 主题发起人 pangzhenguang
  • 开始时间 开始时间
P

pangzhenguang

Unregistered / Unconfirmed
GUEST, unregistred user!
////////////////////////////////////////////////////////////////
// AutoCompl.h
//
#pragma once

#include "subclass.h"

///////////////////////////////////////////////////////////////////
// 只是个通用可重用类，你可以将它用于编辑框和组合框的自动完成输入应用.
//
// 使用方法:
// - 实例化你想要 hook 的编辑/组合控制
// - 添加一些串到串数组中
// - 调用 Init
class CAutoCompleteWnd : public CSubclassWnd {
protected:
CStringArray m_arStrings
// 串列表（数组）
CString m_sPrevious
// 前一个内容
int m_bIgnoreChangeMsg
// 忽略 EN_CHANGE 消息
UINT m_idMyControl
// 子类化的控制 ID
int m_iType
// 控制类型(编辑/组合)
int m_iCurString
// 当前串的索引
enum { Edit=1,ComboBox };

// hook 函数
virtual LRESULT WindowProc(UINT msg, WPARAM wp, LPARAM lp);

// 可以重载的辅助函数
virtual UINT GetMatches(LPCTSTR pszText, CStringArray&amp
arMatches,
BOOL bFirstOnly=FALSE);
virtual void OnFirstString();
virtual BOOL OnNextString(CString&amp
sNext);
virtual BOOL OnMatchTest(const CString&amp
s, const CString&amp
sMatch);
virtual BOOL IgnoreCompletion(CString s);
virtual void OnComplete(CWnd* pWnd, CString s);

public:
CAutoCompleteWnd();
~CAutoCompleteWnd();
void Init(CWnd* pWnd);
CStringArray&amp
GetStringList() { return m_arStrings
}
};

AutoCompl.cpp
////////////////////////////////////////////////////////////////
// VCKBASE August 2000
// Visual C++ 6.0环境编译, 在 Windows 98 或 Windows NT 中运行.
//
#include "stdafx.h"
#include "autocompl.h"

//////////////////
// 构造函数: 用于初始化
CAutoComplete::CAutoComplete()
{
m_bIgnoreChangeMsg=0;
m_iType = 0;
m_idMyControl = 0;
m_iCurString = 0;
}

CAutoComplete::~CAutoComplete()
{
}

////////////////////////////////////////////////////////////////////////
// 安装 hook. 初始化控制 ID 和基于类名的控制类型
//
void CAutoComplete::Init(CWnd* pWnd)
{
CSubclassWnd::HookWindow(pWnd->GetParent());
CString sClassName;
::GetClassName(pWnd->GetSafeHwnd(), sClassName.GetBuffer(32), 32);
sClassName.ReleaseBuffer();
if (sClassName=="Edit") {
m_iType = Edit;
} else if (sClassName=="ComboBox") {
m_iType = ComboBox;
}
m_idMyControl = pWnd->GetDlgCtrlID();
}

//////////////////////////////////////////////////////////////////////////
// 扫描串数组中匹配的文本，并添加匹配项到一个新数组，返回匹配项的数目。
// 对于编辑控制而言, 只需要找到第一个串，在这里使用了一个BOOL参数。
//
//
UINT CAutoComplete::GetMatches(LPCTSTR pszText, CStringArray&amp
arMatches,
BOOL bFirstOnly)
{
arMatches.RemoveAll();
int nMatch = 0;
CString s=pszText;
if (s.GetLength()>0) {
OnFirstString();
CString sMatch;
while (OnNextString(sMatch)) {
if (OnMatchString(s, sMatch)) {
TRACE("Add %s/n",(LPCTSTR)sMatch);
arMatches.Add(sMatch);
nMatch++;
if (bFirstOnly)
break;
}
}
}
return nMatch;
}

///////////////////////////////////////////////////////////////////////////
// 这个虚拟函数的参数是两个字符串，如果有匹配则返回 TRUE. 缺省情况下实现普通的
// 前缀比较-你可以重载它，例如，在忽略掉两个串中的‘www’字符。
//
//
BOOL CAutoComplete::OnMatchString(const CString&amp
s, const CString&amp
sMatch)
{
return s==sMatch.Left(s.GetLength());
}

void CAutoComplete::OnFirstString()
{
m_iCurString=0;
}

BOOL CAutoComplete::OnNextString(CString&amp
sNext)
{
if (m_iCurString < m_arStrings.GetSize()) {
sNext = m_arStrings[m_iCurString++];
return TRUE;
}
sNext = (LPCTSTR)NULL;
return FALSE;
}

////////////////////////////////////////////////////////////////////////
// &quot;hook&quot
函数截取发送到编辑控制和组合框的消息.我只对 EN_CHANGE 或
// CBN_EDITCHANGE感兴趣: 编辑控制的内容已经改变.
//
LRESULT CAutoComplete::WindowProc(UINT msg, WPARAM wp, LPARAM lp)
{
if ((msg==WM_COMMAND &amp;&amp
LOWORD(wp)==m_idMyControl) &amp;&amp;
((m_iType==Edit &amp;&amp
HIWORD(wp)==EN_CHANGE) ||
(m_iType==ComboBox &amp;&amp
HIWORD(wp)==CBN_EDITCHANGE))) {

// 因为我要改变控制的内容，它将触发更多的EN_CHANGE消息，
// 当我获得控制时使用 m_bIgnoreChangeMsg 结束处理.
if (!m_bIgnoreChangeMsg++) {
CString s;
CWnd* pWnd = CWnd::FromHandle((HWND)lp);
pWnd->GetWindowText(s);
OnComplete(pWnd, s);
}
m_bIgnoreChangeMsg--;
}
return CSubclassWnd::WindowProc(msg, wp, lp);
}

////////////////////////////////////////////////////////////////////////
// 这是实现输入完成的主函数.
//
void CAutoComplete::OnComplete(CWnd* pWnd, CString s)
{
CStringArray arMatches
// 匹配串
if (s.GetLength()>0 &amp;&amp
GetMatches(s, arMatches, m_iType==Edit)>0) {
DoCompletion(pWnd, s, arMatches);
}
m_sPrevious=s
// 记住当前串
}

void CAutoComplete::DoCompletion(CWnd* pWnd, CString s,
const CStringArray&amp
arMatches)
{
if (m_iType==ComboBox) {
// 这种强制转换从技术上讲是不正确的，但它是一个标准的MFC诀窍.
CComboBox* pComboBox = (CComboBox*)pWnd;

// 更新下拉框以反映可能的匹配
pComboBox->ResetContent();
for (int i=0
i<arMatches.GetSize()
i++) {
pComboBox->AddString(arMatches);
}
// 用户箭头光标，这样用户才能选择
::SetCursor(LoadCursor(NULL,MAKEINTRESOURCE(IDC_ARROW)))

// 显示下拉框
pComboBox->ShowDropDown();
pComboBox->SetWindowText(IgnoreCompletion(s) ? s : arMatches[0]);
pComboBox->SetEditSel(s.GetLength(),-1);

} else if (m_iType==Edit &amp;&amp
!IgnoreCompletion(s)) {
// 这种强制转换从技术上讲是不正确的，但它是一个标准的MFC诀窍.
CEdit* pEdit = (CEdit*)pWnd;
pEdit->SetWindowText(arMatches[0]);
pEdit->SetSel(s.GetLength(),-1);
}
}

////////////////////////////////////////////////////////////////////////
// 当用户按下Backspace键删除敲入的字符时，这个函数用于关闭输入完成特性。
// 这时，当前的串将匹配最后输入的（前一个）串。在这种情况下,输入完成特性
// 是被屏蔽掉的。例如，如果用户敲如‘foo’,程序将自动完成‘foobar’,字符
// ‘bar’是高亮，如果用户按下Backspace键或者Delete键删除‘bar’时，程序
// 不会再次完成foobar，而是保留‘foo’,即便是用户继续按Backspace键也一样。
// 这个函数是我写的唯一一个说明比代码本身还长函数:)！
//
//
BOOL CAutoComplete::IgnoreCompletion(CString s)
{
return s==m_sPrevious.Left(s.GetLength());
}
 
////////////////////////////////////////////////////////////////
// AutoCompl.h
//
#pragma once

#include &quot;subclass.h&quot;

///////////////////////////////////////////////////////////////////
// 只是个通用可重用类，你可以将它用于编辑框和组合框的自动完成输入应用.
//
// 使用方法:
// - 实例化你想要 hook 的编辑/组合控制
// - 添加一些串到串数组中
// - 调用 Init
class CAutoCompleteWnd : public CSubclassWnd {
protected:
CStringArray m_arStrings
// 串列表（数组）
CString m_sPrevious
// 前一个内容
int m_bIgnoreChangeMsg
// 忽略 EN_CHANGE 消息
UINT m_idMyControl
// 子类化的控制 ID
int m_iType
// 控制类型(编辑/组合)
int m_iCurString
// 当前串的索引
enum { Edit=1,ComboBox };

// hook 函数
virtual LRESULT WindowProc(UINT msg, WPARAM wp, LPARAM lp);

// 可以重载的辅助函数
virtual UINT GetMatches(LPCTSTR pszText, CStringArray&amp
arMatches,
BOOL bFirstOnly=FALSE);
virtual void OnFirstString();
virtual BOOL OnNextString(CString&amp
sNext);
virtual BOOL OnMatchTest(const CString&amp
s, const CString&amp
sMatch);
virtual BOOL IgnoreCompletion(CString s);
virtual void OnComplete(CWnd* pWnd, CString s);

public:
CAutoCompleteWnd();
~CAutoCompleteWnd();
void Init(CWnd* pWnd);
CStringArray&amp
GetStringList() { return m_arStrings
}
};

AutoCompl.cpp
////////////////////////////////////////////////////////////////
// VCKBASE August 2000
// Visual C++ 6.0环境编译, 在 Windows 98 或 Windows NT 中运行.
//
#include &quot;stdafx.h&quot;
#include &quot;autocompl.h&quot;

//////////////////
// 构造函数: 用于初始化
CAutoComplete::CAutoComplete()
{
m_bIgnoreChangeMsg=0;
m_iType = 0;
m_idMyControl = 0;
m_iCurString = 0;
}

CAutoComplete::~CAutoComplete()
{
}

////////////////////////////////////////////////////////////////////////
// 安装 hook. 初始化控制 ID 和基于类名的控制类型
//
void CAutoComplete::Init(CWnd* pWnd)
{
CSubclassWnd::HookWindow(pWnd->GetParent());
CString sClassName;
::GetClassName(pWnd->GetSafeHwnd(), sClassName.GetBuffer(32), 32);
sClassName.ReleaseBuffer();
if (sClassName==&quot;Edit&quot;) {
m_iType = Edit;
} else if (sClassName==&quot;ComboBox&quot;) {
m_iType = ComboBox;
}
m_idMyControl = pWnd->GetDlgCtrlID();
}

//////////////////////////////////////////////////////////////////////////
// 扫描串数组中匹配的文本，并添加匹配项到一个新数组，返回匹配项的数目。
// 对于编辑控制而言, 只需要找到第一个串，在这里使用了一个BOOL参数。
//
//
UINT CAutoComplete::GetMatches(LPCTSTR pszText, CStringArray&amp
arMatches,
BOOL bFirstOnly)
{
arMatches.RemoveAll();
int nMatch = 0;
CString s=pszText;
if (s.GetLength()>0) {
OnFirstString();
CString sMatch;
while (OnNextString(sMatch)) {
if (OnMatchString(s, sMatch)) {
TRACE(&quot;Add %s/n&quot;,(LPCTSTR)sMatch);
arMatches.Add(sMatch);
nMatch++;
if (bFirstOnly)
break;
}
}
}
return nMatch;
}

///////////////////////////////////////////////////////////////////////////
// 这个虚拟函数的参数是两个字符串，如果有匹配则返回 TRUE. 缺省情况下实现普通的
// 前缀比较-你可以重载它，例如，在忽略掉两个串中的‘www’字符。
//
//
BOOL CAutoComplete::OnMatchString(const CString&amp
s, const CString&amp
sMatch)
{
return s==sMatch.Left(s.GetLength());
}

void CAutoComplete::OnFirstString()
{
m_iCurString=0;
}

BOOL CAutoComplete::OnNextString(CString&amp
sNext)
{
if (m_iCurString < m_arStrings.GetSize()) {
sNext = m_arStrings[m_iCurString++];
return TRUE;
}
sNext = (LPCTSTR)NULL;
return FALSE;
}

////////////////////////////////////////////////////////////////////////
// &quot;hook&quot
函数截取发送到编辑控制和组合框的消息.我只对 EN_CHANGE 或
// CBN_EDITCHANGE感兴趣: 编辑控制的内容已经改变.
//
LRESULT CAutoComplete::WindowProc(UINT msg, WPARAM wp, LPARAM lp)
{
if ((msg==WM_COMMAND &amp;&amp
LOWORD(wp)==m_idMyControl) &amp;&amp;
((m_iType==Edit &amp;&amp
HIWORD(wp)==EN_CHANGE) ||
(m_iType==ComboBox &amp;&amp
HIWORD(wp)==CBN_EDITCHANGE))) {

// 因为我要改变控制的内容，它将触发更多的EN_CHANGE消息，
// 当我获得控制时使用 m_bIgnoreChangeMsg 结束处理.
if (!m_bIgnoreChangeMsg++) {
CString s;
CWnd* pWnd = CWnd::FromHandle((HWND)lp);
pWnd->GetWindowText(s);
OnComplete(pWnd, s);
}
m_bIgnoreChangeMsg--;
}
return CSubclassWnd::WindowProc(msg, wp, lp);
}

////////////////////////////////////////////////////////////////////////
// 这是实现输入完成的主函数.
//
void CAutoComplete::OnComplete(CWnd* pWnd, CString s)
{
CStringArray arMatches
// 匹配串
if (s.GetLength()>0 &amp;&amp
GetMatches(s, arMatches, m_iType==Edit)>0) {
DoCompletion(pWnd, s, arMatches);
}
m_sPrevious=s
// 记住当前串
}

void CAutoComplete::DoCompletion(CWnd* pWnd, CString s,
const CStringArray&amp
arMatches)
{
if (m_iType==ComboBox) {
// 这种强制转换从技术上讲是不正确的，但它是一个标准的MFC诀窍.
CComboBox* pComboBox = (CComboBox*)pWnd;

// 更新下拉框以反映可能的匹配
pComboBox->ResetContent();
for (int i=0
i<arMatches.GetSize()
i++) {
pComboBox->AddString(arMatches);
}
// 用户箭头光标，这样用户才能选择
::SetCursor(LoadCursor(NULL,MAKEINTRESOURCE(IDC_ARROW)))

// 显示下拉框
pComboBox->ShowDropDown();
pComboBox->SetWindowText(IgnoreCompletion(s) ? s : arMatches[0]);
pComboBox->SetEditSel(s.GetLength(),-1);

} else if (m_iType==Edit &amp;&amp
!IgnoreCompletion(s)) {
// 这种强制转换从技术上讲是不正确的，但它是一个标准的MFC诀窍.
CEdit* pEdit = (CEdit*)pWnd;
pEdit->SetWindowText(arMatches[0]);
pEdit->SetSel(s.GetLength(),-1);
}
}

////////////////////////////////////////////////////////////////////////
// 当用户按下Backspace键删除敲入的字符时，这个函数用于关闭输入完成特性。
// 这时，当前的串将匹配最后输入的（前一个）串。在这种情况下,输入完成特性
// 是被屏蔽掉的。例如，如果用户敲如‘foo’,程序将自动完成‘foobar’,字符
// ‘bar’是高亮，如果用户按下Backspace键或者Delete键删除‘bar’时，程序
// 不会再次完成foobar，而是保留‘foo’,即便是用户继续按Backspace键也一样。
// 这个函数是我写的唯一一个说明比代码本身还长函数:)！
//
//
BOOL CAutoComplete::IgnoreCompletion(CString s)
{
return s==m_sPrevious.Left(s.GetLength());
}
 
我写的很多代码都没有其中的注释长
 
大家有有没有办法？
 
在线等待
 
是不是分数太少？
 
压根没学过C。。。。
帮你顶。。。
 
应该有不少人是从C转过来的吧
 
苦等了三天，没有回音
 
您必须登录或注册才可回复。

Similar threads

小
将下面的C程序改为DELPHI的代码(200分)
回复
3
查看
293
小草
小
公
谁帮我把这段VC的代码转换成DELPHI(100分)
回复
3
查看
122
公孙剑影
公
B
有人能把这段C++代码转成Delphi的吗? (100分)
回复
2
查看
511
base7
B
P
怎样把共享破解的C代码转成Delphi代码！(共享破解源码)(100分)
2
回复
34
查看
747
paf
P
A
帮忙将C++ builder代码翻译成delphi 代码 (50分)
回复
0
查看
224
agangr
A
后退
顶部