我有10行dephi代码需要翻成cb的，在线等....

[sunmingdong]

代码如下，wwCustomRichEdit是个richedit控件，能给解释一下什么意思也有分

function TwwCustomRichEdit.GetSelText: string;override;
...
function TwwCustomRichEdit.GetSelText: string;
var
Length: Integer;
begin
SetLength(Result, (GetSelLength + 1)*2); // Important!
Length := SendMessage(Handle, EM_GETSELTEXT, 0, Longint(PChar(Result)));
SetLength(Result, Length);
end;

[sunmingdong]

这是个第三方控件，infoPower的控件，没有源代码，怎么来重载getseltext方法呢？？？

[Longee]

class PACKAGE TwwCustomRichEdit : public TRichEdit
{
public:
virtual AnsiString __fastcall GetSelText();
};

AnsiString __fastcall TwwCustomRichEdit::GetSelText()
{
// ...
}

[aawolf]

得到所选择的字符串呀，从名字就可以看出来了，应该是自己写的控件吧？

[aawolf]

function TwwCustomRichEdit.GetSelText: string;
var
Length: Integer;
begin
//通过调用GetSelLength（应该是另外一个方法）来设置返回值的长度
SetLength(Result, (GetSelLength + 1)*2); // Important!
//通过SendMessage得到所选择的字符串
Length := SendMessage(Handle, EM_GETSELTEXT, 0, Longint(PChar(Result)));
//设置返回值长度
SetLength(Result, Length);
end;

[advanced]

override String TwwCustomRichEdit::GetSelText
....


String TwwCustomRichEditGetSelText(int Length)
{
SetLength(Result,(GetSelLength + 1)*2);
Length = SendMessage(Handle, EM_GETSELTEXT, 0, Longint(PChar(Result)));
SetLength(Result,Length);
}

[advanced]

override String TwwCustomRichEdit::GetSelText
....


String TwwCustomRichEdit::GetSelText(int Length)
{
SetLength(Result,(GetSelLength + 1)*2);
Length = SendMessage(Handle, EM_GETSELTEXT, 0, Longint(PChar(Result)));
SetLength(Result,Length);
}

[EastenChild]

{
int Length;
SetLength(Result,(GetSelLength()+1)*2);
Length = SendMessage(Handle,EM_GETSELTEXT,0,
(long)(LPSTR(Result)));
SetLength(Result,Length);
}
只能到这个地步了,看不懂请包涵