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 를 찾아 보세요.
|