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에 검색하면 그 라인이 색이 칠해지고 그 키워드가
들어간 라인은 다 밑줄쳐지는걸 원하는데 좋은 방법 있을까요?!
|