지니 께서 말씀하시기를...

>

> 간단한 메모장을 만들어 보고 있습니다.

> RichEdit콘트롤을 사용하여 작성하고 있는데

> 이곳에 있는 문자를 찾거나 바꿀수 있는 기능을 넣을려고

> 합니다.

>

> 근데 FindDialog, ReplaceDialog 콤포넌트의 기능을 알고

> 싶군요. 단순히 다이알로그 박스만 나타내주는 것인지

> 실제로 찾기, 바꾸기 의 기능을 해주는 콤포넌트인지...

>

> 어줍잖은 실력으로 찾기,바꾸기 코딩을 하기보다는

> 활용하는게 현재로서는 좋을것 같아서요.. 답변부탁드립니다.





음냐....



예제 입니다.



procedure TForm1.Button1Click(Sender: TObject);

begin

FindDialog1.Execute;

end;





procedure TForm1.FindDialog1Find(Sender: TObject);

var

FoundAt: LongInt;

StartPos, ToEnd: integer;

SearchType : TSearchTypes;

begin

with RichEdit1 do

begin

SearchType := [];//FindText메서드에 쓰일 옵션

// 대/소문자구별, 단어검색 조검만 줄수 있다.

//대소문자 구별인지 검사

if (frMatchCase in FindDialog1.Options ) then

SearchType := SearchType + [stMatchCase];



// 단어 검색인지 검사

if (frWholeWord in FindDialog1.Options ) then

SearchType := SearchType + [stWholeWord];



//검색순서가 현재 부터 위/아래인지 검사

if (frDown in FindDialog1.Options ) then

begin

StartPos := SelStart;

ToEnd := Length(Text) - StartPos;

end

else

begin

StartPos := 0;

ToEnd := SelStart;

end;



FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, SearchType);

if FoundAt <> -1 then

begin

FindDialog1.CloseDialog; //단어를 발견하면 검색창을 닫는다.

SetFocus;

SelStart := FoundAt;

SelLength := Length(FindDialog1.FindText);

end;

end;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

ReplaceDialog1.Execute;

end;



procedure TForm1.ReplaceDialog1Find(Sender: TObject);

begin

ShowMessage('OnFind');

end;



procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

begin

if frReplaceAll in ReplaceDialog1.Options then

ShowMessage('OnReplaceAll')

else

ShowMessage('OnReplace')

end;





그럼...