++Hichkas
سه شنبه 26 اردیبهشت 1391, 17:51 عصر
با سلام به دوستان عزیز
من یه پروژه نوت پد دارم که تقریبا کامل اما چند تا ایراد داره اگر کسی می تونه کمکم کنه. مشکلاتش به ترتیب در زیر هست:
وقتی Find می کنم فقط اولین کلمه رو مشخص می کنه که نوشته شده
void __fastcall TForm2::Find1Click(TObject *Sender)
{
LongInt foundat;
int StartPos, ToEnd;
TSearchTypes mySearchTypes;
if (FindDialog1->Execute()) {
if (RichEdit1->SelLength!=0) {
StartPos= RichEdit1->SelStart + RichEdit1->SelLength ;
}
else{
StartPos =0;
}
ToEnd=Text.Length()- StartPos;
//foundat=RichEdit1->FindTextA(RichEdit1->Lines->Text,StartPos,ToEnd,mySearchTypes);
if (foundat!=-1) {
SetFocus();
RichEdit1->SelStart=foundat;
RichEdit1->SelLength=Text.Length();
}
}
}
وقتی replace می کنم هم اول فقط کلمه درخواستی رو چاپ می کرد بدون اینکه پیداش کنه ولی الان اون کارم انجام نمیده
void __fastcall TForm2::replace1Click(TObject *Sender)
{
ReplaceDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ReplaceDialog1Find(TObject *Sender)
{
if (FindDialog1->Execute()) {
if (RichEdit1->SelLength!=0) {
StartPos= RichEdit1->SelStart + RichEdit1->SelLength ;
}
else{
StartPos =0;
}
ToEnd=Text.Length()- StartPos;
//foundat=RichEdit1->FindTextA(RichEdit1->Lines->Text,StartPos,ToEnd,mySearchTypes);
if (foundat!=-1) {
SetFocus();
RichEdit1->SelStart=foundat;
RichEdit1->SelLength=Text.Length();
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ReplaceDialog1Replace(TObject *Sender)
{
if (RichEdit1->SelLength!=0) {
StartPos=RichEdit1->SelStart+ RichEdit1->SelLength;
}
else {
StartPos=0;
}
ToEnd=Text.Length()- StartPos;
if (foundat!=-1) {
SetFocus();
RichEdit1->SelLength=RichEdit1->Text.Length();
RichEdit1->SelText=ReplaceDialog1->ReplaceTextA;
}
}
وقتی کلا Save میکنم می بندمش و با نوت پد ویندوز بازش می کنم یه سریکلمات بی مفهوم بالاش نوشته سده اگر کسی میتونه لطفا کمکم کنه
پیشا پیش ممنونم
من یه پروژه نوت پد دارم که تقریبا کامل اما چند تا ایراد داره اگر کسی می تونه کمکم کنه. مشکلاتش به ترتیب در زیر هست:
وقتی Find می کنم فقط اولین کلمه رو مشخص می کنه که نوشته شده
void __fastcall TForm2::Find1Click(TObject *Sender)
{
LongInt foundat;
int StartPos, ToEnd;
TSearchTypes mySearchTypes;
if (FindDialog1->Execute()) {
if (RichEdit1->SelLength!=0) {
StartPos= RichEdit1->SelStart + RichEdit1->SelLength ;
}
else{
StartPos =0;
}
ToEnd=Text.Length()- StartPos;
//foundat=RichEdit1->FindTextA(RichEdit1->Lines->Text,StartPos,ToEnd,mySearchTypes);
if (foundat!=-1) {
SetFocus();
RichEdit1->SelStart=foundat;
RichEdit1->SelLength=Text.Length();
}
}
}
وقتی replace می کنم هم اول فقط کلمه درخواستی رو چاپ می کرد بدون اینکه پیداش کنه ولی الان اون کارم انجام نمیده
void __fastcall TForm2::replace1Click(TObject *Sender)
{
ReplaceDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ReplaceDialog1Find(TObject *Sender)
{
if (FindDialog1->Execute()) {
if (RichEdit1->SelLength!=0) {
StartPos= RichEdit1->SelStart + RichEdit1->SelLength ;
}
else{
StartPos =0;
}
ToEnd=Text.Length()- StartPos;
//foundat=RichEdit1->FindTextA(RichEdit1->Lines->Text,StartPos,ToEnd,mySearchTypes);
if (foundat!=-1) {
SetFocus();
RichEdit1->SelStart=foundat;
RichEdit1->SelLength=Text.Length();
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ReplaceDialog1Replace(TObject *Sender)
{
if (RichEdit1->SelLength!=0) {
StartPos=RichEdit1->SelStart+ RichEdit1->SelLength;
}
else {
StartPos=0;
}
ToEnd=Text.Length()- StartPos;
if (foundat!=-1) {
SetFocus();
RichEdit1->SelLength=RichEdit1->Text.Length();
RichEdit1->SelText=ReplaceDialog1->ReplaceTextA;
}
}
وقتی کلا Save میکنم می بندمش و با نوت پد ویندوز بازش می کنم یه سریکلمات بی مفهوم بالاش نوشته سده اگر کسی میتونه لطفا کمکم کنه
پیشا پیش ممنونم