看看这句为什么要出错,关于RichEdit的FindText,40分

[cizi]

TRichEdit* myrich=new TRichEdit(this);
myrich->Text=Memo1->Text;
int i;

//下面这句运行时老是出错,大家看看是怎么回事
i=myrich->FindTextA(Memo2->Text,0,myrich->Text.Length(),TSearchTypes()<<stMatchCase);
myrich->SelStart=i;
myrich->SelLength=i+Memo2->Text.Length();
Memo3->Text=myrich->SelText;

[csz_cmy]

myrich->SelLength=Memo2->Text.Length();!!!!

[cizi]

我已经解决了这个问题，但是不知道对不对，总之编译通过运行良好！主要是第一句没有弄对，我改成了：

TRichEdit* myrich=new TRichEdit(Application->Handle);

有那位能够提供解释一样给分！