rlwns 님이 쓰신 글 :
: void __fastcall TForm4::Button1Click(TObject *Sender)
: {
:
: if (OpenDialog1->Execute()) {
:
:
:  RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
:
:  }
: } 
: // 파일은 대략 이렇게 OpenDialog1을 사용하여 불러왔고
:
:
: void __fastcall TForm4::Button2Click(TObject *Sender)
: {
:
:    if(Edit1->Text != "") {
:       if(IntToStr(RichEdit1->Text.Pos(Edit1->Text))>0) {
:         RichEdit1->SelStart = 0;
:         RichEdit1->SelAttributes->Color = clRed;
:         ShowMessage(IntToStr(RichEdit1->Text.Pos(Edit1->Align))+"번째에 있습니다");
:         }
:
:     }
:
: }
:
: 이렇게 연습으로 몇번째에 있는지 작성해봤습니다 하지만 원하는건 키워드를 Edit에 검색하면 그 라인이 색이 칠해지고 그 키워드가
: 들어간 라인은 다 밑줄쳐지는걸 원하는데 좋은 방법 있을까요?!



답변:


델파이 Pos 함수를 이용하는 거 자체가 넌센스.

MS 사이트에서 RichEdit 콘트롤 API 를 찾아 보세요.