怎样用替换对话框替换 换行符?

[kittyhust]

可以调用替换对话框组件--TReplaceDialog
但是如何替换换行呢?
如果在"查找内容"里面输入enter键,会被当作是确定....

[kittyhust]

hellolongbin 说的我试了一下啊,但还是没成功
那部分代码如下:
void __fastcall TForm1::ReplaceDialog1Replace(TObject *Sender)
{
int SelPos;
Boolean flag;
int n;
TReplaceDialog *dlg=(TReplaceDialog*)Sender;
SelPos=(Memo1->Lines->Text).Pos(dlg->FindText);
if(dlg->Options.Contains(frReplace))
{
if(SelPos>0)
{
Memo1->SelStart=SelPos-1;
Memo1->SelLength=(dlg->FindText).Length();
Memo1->SelText=dlg->ReplaceText;
}
else
MessageDlg("not found"+dlg->FindText,mtError,TMsgDlgButtons()<<mbOK,0);
}
if(dlg->Options.Contains(frReplaceAll))
{
if(SelPos>0)
flag=true;
else flag=false;
n=0;
if(flag)
{
while(SelPos>0)
{
Memo1->SelStart=SelPos-1;
Memo1->SelLength=(dlg->FindText).Length();
Memo1->SelText=dlg->ReplaceText;
SelPos=(Memo1->Lines->Text).Pos(dlg->FindText);
n++;
}
MessageDlg("全部替换完毕！共完成"+IntToStr(n)+"处替换。",mtInformation,TMsgDlgButtons()<<mbOK,0);
}
else
MessageDlg("not found"+dlg->FindText,mtError,TMsgDlgButtons()<<mbOK,0);
}
}

应该怎样改呢?好象查找功能识别不了MEMO1文档中的换行符.............[

[hellolongbin]

我是让你在代码里判断^p然后在程序里用代码替换\n来的，你还是没写啊

[kittyhust]

void __fastcall TForm1::ReplaceDialog1Replace(TObject *Sender)
{
int SelPos;
Boolean flag;
int n;
TReplaceDialog *dlg=(TReplaceDialog*)Sender;
SelPos=(Memo1->Lines->Text).Pos(dlg->FindText);
if(dlg->Options.Contains(frReplace))
{
if(SelPos>0)
{
////////////标记////////////////////////////
if(dlg->ReplaceText=='^p') dlg->ReplaceText='\n';
// 或者dlg->ReplaceText='#13';
///////////////////////////////////////////
Memo1->SelStart=SelPos-1;
Memo1->SelLength=(dlg->FindText).Length();
Memo1->SelText=dlg->ReplaceText;
}
else
MessageDlg("not found"+dlg->FindText,mtError,TMsgDlgButtons()<<mbOK,0);
}
if(dlg->Options.Contains(frReplaceAll))
{
if(SelPos>0)
flag=true;
else flag=false;
n=0;
if(flag)
{
while(SelPos>0)
{
Memo1->SelStart=SelPos-1;
Memo1->SelLength=(dlg->FindText).Length();
Memo1->SelText=dlg->ReplaceText;
SelPos=(Memo1->Lines->Text).Pos(dlg->FindText);
n++;
}
MessageDlg("全部替换完毕！共完成"+IntToStr(n)+"处替换。",mtInformation,TMsgDlgButtons()<<mbOK,0);
}
else
MessageDlg("not found"+dlg->FindText,mtError,TMsgDlgButtons()<<mbOK,0);
}
}
楼上的方法我试过了,都行不通啊.
^p本来只是WORD里面的段落标志符.把那个符号替换过去有什么意义?
如果楼上大侠能明确写出来...最好能有效
奇怪的是,另一个小程序却能实现换行符的替换.为什么呢?????

void __fastcall TForm1::Button3Click(TObject *Sender)
{
AnsiString Strold=this->Edit1->Text;
AnsiString Strnew=this->Edit2->Text;
AnsiString Str=this->Memo1->Text;
int ipos=Str.Pos(Strold);
Str.Delete(ipos,Strold.Length());
Str.Insert(Strnew,ipos);
this->Memo1->Text=Str;
}

[hellolongbin]

这种情况一般都要特殊处理的
比如在word和UltraEdit里用^p来表示换行，然后在代码里判断如果要替换的字符是^p的话就替换#13

[kittyhust]

word中用^p也听说过,但是这替换功能能否通过BCB编程实现呢?
在TReplaceDialog的窗体里输入^p还是没用啊
继续求教..........

[hellolongbin]

你是不是无视我刚才回复里的最后一句话了？

[xiaoshi0]

为什么要替换回车符？

有的编辑器在按下回车的时候输出的是\r\n，有的编辑器输出的是\n，是不一样的

就算要替换回车符，也要用二进制的方式查找'\xd'字符，然后进行替换