갑자기 복병을 만났어요.

리치에디터로 텍스트 화일을 불러왔더니 고유의 글자 속성들이 모두 무시되는군요. 원래 이런 건가요? 아니면 방법이 있나요? 리치에디터로는 다른 방법이 없다면 이런 목적을 충족시기려면 어떻게 해야 하나요?



꼭 가르쳐 주세요.



그리고 이 정욱님이 친절히 가르쳐 주셨지만 제가 워낙 처음하는 코딩이라 어렵군요. 다시 한번 가르쳐주세요.하이 라이트에 대해서요. 거의 소라가 도배를하는군요. 죄송해요. 워낙 중요한 일이라......아까 보냈던 재 질문을 함께 보냅니다.

********************

찾은 단어를 하이라이트 하기;



답장을 주셔서 감사해요.

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

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



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



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;