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

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

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

합니다.



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

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

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



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

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

네.. 만약 정품 씨디가 있으시면 인스톨 쉴드라는 것이 있습니다.

그것을 가지고 만드시면 되구요..



아니면 Wise Install 등 설치제작용 소프트웨어가 나와있습니다.

데이타 베이스 프로그램을 개발하셨으면 BDE와 같이 배포하셔야 하는데 현재 델파이 씨디에 들어있는 인스톨쉴드 익스프레스에는 그런기능이 없기때문에 약간의 고생이 생각이 되는군요.

BDE를 수동으로 설치하게 만들어 줘야 하니까요...



자동으로 해주게 하는것은 Wise Install 을 첫째로 들 수 있습니다.

BDE뿐 아니라 DAO, DirectX 등등 런타임들을 자동으로 선택해서 설치할 수 있게 해주는 프로그램이죠... 그런데 상용입니다...



여기 나이렉스에서 판매를 하니 한번 여쭤보세요.





원유진 wrote:

> 델파이로 간단한 데이터 베이스를 이용하고, 그 데이타 베이스를 QReport를 이용해서 인쇄하는 프로그램을 만들었습니다.

> 그런데 만든 것은 둘째 치고라도 이 프로그램을 배포하려면(비주얼 베이직에서는 인스톨 프로그램이 있어서 쉽게 했는데) 델파이에서는 어떻게 하는지 모르겠군요.

> 저로써는 책을 읽어봐도 뚜렷한 답이 나와있질 않아서 걱정이 많습니다.

> 이걸 어떻게 하시는 것인지 아시는 분은 대답이나 먼저 이런 질문이 있었으면 해답란 번호좀 갈켜 줬으면 고맙겠습니다.

>

> 다시한번 부탁드립니다. 그럼 감사. 꾸벅

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

>

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

> 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;





그럼...