Форум программистов [Powered by Invision Power Board]

Код

AnsiString __fastcall InvertString(AnsiString Str)
{
    char *Convert = new char[Str.Length() + 1];
    int ConvertCnt = 0;
    for(int i = Str.Length() - 1; i >= 0; i--) {
        Convert[ConvertCnt++] = Str.c_str()[i];
    }
    Convert[Str.Length()] = 0;
    AnsiString ReturnStr = Convert;
    delete Convert;

    return ReturnStr;
}

void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
    TFindDialog *Dialog = dynamic_cast<TFindDialog *>(Sender);
    TCustomEdit *text_box = RichEdit1; // любой Edit / RichEdit

    AnsiString FindStr, ToFindStr;
    if (Dialog->Options.Contains(frDown)) {
        text_box->SelStart = text_box->SelStart + text_box->SelLength;
        text_box->SelLength = 0;
        FindStr = text_box->Text.SubString(
            text_box->SelStart,
            text_box->Text.Length() - text_box->SelStart
        );
        ToFindStr = FindDialog1->FindText;
    }
    else {
        FindStr = InvertString(text_box->Text.SubString(0, text_box->SelStart));
        ToFindStr = InvertString(FindDialog1->FindText);
    }

    if (!Dialog->Options.Contains(frMatchCase)) {
        FindStr = FindStr.LowerCase();
        ToFindStr = ToFindStr.LowerCase();
    }

    int FindPos, OldSelStart = text_box->SelStart;
    while (1) {
        FindPos = FindStr.Pos(ToFindStr);
        if (FindPos == 0) {
            ShowMessage("Больше ничего нет :)"); return;
        }
        if (Dialog->Options.Contains(frWholeWord)) {
            if (
                (FindPos == 0 || !isalnum(FindStr.c_str()[FindPos-2])) &&
                (FindPos == FindStr.Length() - ToFindStr.Length() - 1 ||
                !isalnum(FindStr.c_str()[FindPos-1+ToFindStr.Length()]))
            ) break;
            FindStr = FindStr.SubString(FindPos+1, FindStr.Length() - FindPos);
        }
        else {
            break;
        }
    }

    if (Dialog->Options.Contains(frDown)) {
        if(OldSelStart == 0) {
            OldSelStart++;
        }
        text_box->SelStart = OldSelStart + FindPos - 2;
    }
    else {
        text_box->SelStart = OldSelStart - FindPos - ToFindStr.Length() + 1;
    }

    text_box->SelLength = ToFindStr.Length();
    text_box->SetFocus();
}