S
sy0116
Unregistered / Unconfirmed
GUEST, unregistred user!
用以下代码找richedit里的文本<br>Var<br>Ret:LongInt;<br>mTextChar;<br>Buf:Integer;<br>begin<br> Ret:=SendMessage(qqformid,WM_GETTEXTLENGTH,0,0)+1;<br> GetMem(mText,Ret);<br> try<br> Buf:=LongInt(mText);<br> SendMessage(hWnd,WM_GETTEXT,Ret,Buf);<br> Result:=StrPas(mText);<br> finally<br> FreeMem(mText,Ret);<br> end;<br>用这段代码找文本为什么文本输一多就找不到?