안녕하십니까? 구창민님 ^.^

헬퍼가 새로와졌네요.

지난번 부탁한 답변이 없어 다시부탁합니다.

바쁘실텐데 죄송해요 ^.^

Db가 정상인지 아닌지(깨진경우..)를 Check하는 방법을 일고섶어요

건강하세요.

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

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



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

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



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

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

>

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

>

> 부탁해용~~~

>

>

박병영 wrote:

> 안녕하십니까? 구창민님 ^.^

> 헬퍼가 새로와졌네요.

> 지난번 부탁한 답변이 없어 다시부탁합니다.

> 바쁘실텐데 죄송해요 ^.^

> Db가 정상인지 아닌지(깨진경우..)를 Check하는 방법을 일고섶어요

> 건강하세요.

>



안녕하세요 김영대입니다

어떤 DB인지 말씀해 주셔야...

사용하시는 DB가 PARADOX 이면 아래를 참고하세요



아래 Inprise 사이트에서 TUtility 에 관한 자료를 찾아보세요

http://www.inprise.com/devsupport/bde/utilities.html



원래 다른 Xbase 계열은 테이블의 검사/복구 등등의 소스를 공개하는데

PARADOX 는 소스를 공개하지 않고 DLL 만 제공하여 테이블 복구를

구현합니다



위 사이트에서 TUtility DLLs 로 시작하는 부분을 찾으신 다음 사용하시는

BDE의 버전에 맞는 DLL 을 다운받으세요



그 다음 데모 프로그램은 그 아래 Paradox Table Repair 로 시작하는

부분에 보시면 소스가 있습니다

답장을 주셔서 감사해요.

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

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



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



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

>

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

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

> >

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

> >

> > 부탁해용~~~

> >

> >

>

>