만약 RichEdit1안에서 This 라는 문자열을 찾아서 선택하게 하려면 아래와 같이 하시면 됩니다.

다른 콘트롤에 포커스가 가있을 때에도 선택된 부분이 하이라이트 되게 하시려면 RichEdit1의 HideSelection이라는 프로퍼티를 False로 주시면 됩니다.



RichEdit1.SelStart := Pos('This',richEdit1.Text) - 1;

RichEdit1.SelLength := Length('This');



이소라 께서 말씀하시기를...

> 번번이 도움을 주셔서 고맙습니다.

>

> 리치에디트에서 검색된 단어를 하이라이트하는 기능이 있다는데... 그럴듯한 소스가 들어 있는 책을 구하긴 했지만 여~엉 안되는군요. 검색을 해도 없구요. 부탁합니다. 거의 끝내가는 중인데 또 암초가 타이타닉의 딴죽을 거는군요. 흑흑...

>

> 부탁해용~~~

>

>

답장을 주셔서 감사해요.

그런데 제가 워낙 모르는 것이 많으니 잘 써먹질 못하는군요. 죄송!!

아래처럼 했더니 찾는 척을 하다가는 엉뚱한 단어를 하이라이트를 하는군요. 그것도 무려 한 개만 색깔을 주더라구요. 요새 페인트 값이 많이 올랐나요?



원래의 의도는 어떤 문서에서 단어를 찾아서 단어가 들어있는 라인을 메모장에 뿌리고 라인 가운데 찾은 단어를 하이라이트 하겠다는 것인데 결과가 엉뚱하게 나오는군요. 부탁해요. 이것만 끝나면 아~흐 바다가 부른다. 철썩......



begin

Memo1.Lines.Clear;

for n:=80 to form1.height-78 do

begin

panel3.height:=n;

end;



s:=trim(edit1.text);

setlength(text_line,256);

assignfile(bible,'D:bible2ko.txt');

reset(bible);

while not eof(bible) do

begin

readln(bible,text_line);

j:=pos(s,text_line);

if j > 0 then

begin

memo1.Lines.add(text_line);

Memo1.SelStart := Pos(s,text_line) - 1;

Memo1.SelLength := Length(s);





end;



end;

closefile(bible);

MessageDlg('Now Serching complted......', mtInformation, [mbOK],0);

end;







이정욱 께서 말씀하시기를...

> 만약 RichEdit1안에서 This 라는 문자열을 찾아서 선택하게 하려면 아래와 같이 하시면 됩니다.

> 다른 콘트롤에 포커스가 가있을 때에도 선택된 부분이 하이라이트 되게 하시려면 RichEdit1의 HideSelection이라는 프로퍼티를 False로 주시면 됩니다.

>

> RichEdit1.SelStart := Pos('This',richEdit1.Text) - 1;

> RichEdit1.SelLength := Length('This');

>

> 이소라 께서 말씀하시기를...

> > 번번이 도움을 주셔서 고맙습니다.

> >

> > 리치에디트에서 검색된 단어를 하이라이트하는 기능이 있다는데... 그럴듯한 소스가 들어 있는 책을 구하긴 했지만 여~엉 안되는군요. 검색을 해도 없구요. 부탁합니다. 거의 끝내가는 중인데 또 암초가 타이타닉의 딴죽을 거는군요. 흑흑...

> >

> > 부탁해용~~~

> >

> >

>

>