반영재 wrote:

> RichEdit에서 FindText로 찾은 문자열을 다른문자열로 바꾸고싶은데 어떻게 바꿀수 있나요?

> 물론 FindText로 찾은 문자열의 속성도 그대로 가지고 있어야 되는뎅...ㅠ.ㅜ

>

> 예을 들면 찾은문자열이 파란색으로 되어있으면 바꾸려는 문자도 파란색으로 바꿔야 하거든요...

>

> 꼭 답변좀 해주세요...ㅠ.ㅜ

////////////////////////////////////////////////////////////

아래처럼 일괄 수정입니다 참조하세요. 폰트속성은 어떤건지 모르겠구여...

procedure TForm1.Button2Click(Sender: TObject);

var

FoundAt: LongInt;

strDel, strNew : string;

begin

strDel := '홍성락';

strNew := 'hong sung rak';

repeat

FoundAt := RichEdit1.FindText(strDel, 0, Length(RichEdit1.Text), [stMatchCase]);

if FoundAt > 0 then

RichEdit1.Text := copy(RichEdit1.Text,1,Pos(strDel,RichEdit1.Text)-1) + strNew

+ copy(RichEdit1.Text,Pos(strDel,RichEdit1.Text)+Length(strDel),Length(RichEdit1.Text)) ;

until FoundAt < 0;

end;

내용무라니깐요^^