우선 이방법으로 치환 해보시고 원하는 후속작업을 하시면 될것같네요...

StringReplace(내용,#13#10,' ',[rfReplaceAll]);

즐프하세요...

안녕하세요. 최용일입니다.

Copy함수를 써보세요...

  RichEdit1.Text := Copy(RichEdit1.Text, 1, Length(RichEdit1.Text)-2);


^^ 항상 즐코하세요...

제가 원하는 그런게 나타나지 않네요

아래에도 설명했지만

메세지는 '2003-02-11 12:17:00 설정이 변경되었습니다.'라고 나옵니다.

-----------------------------------------------
|'2003-02-11 12:17:00 설정이 변경되었습니다.' |△ |
|'2003-02-11 12:27:00 설정이 변경되었습니다.' |    |
|'2003-02-11 12:37:00 설정이 변경되었습니다.' |    |
|'2003-02-11 12:47:00 설정이 변경되었습니다.' |    |
|'2003-02-11 12:57:00 설정이 변경되었습니다.' |    |
|'2003-02-11 13:07:00 설정이 변경되었습니다.' |▽ |
-----------------------------------------------

이렇게 폼에 가득차버리면요

스크롤이 아래로 자동으로 움직이게염

-----------------------------------------------
|'2003-02-11 12:27:00 설정이 변경되었습니다.' |△ |
|'2003-02-11 12:37:00 설정이 변경되었습니다.' |    |
|'2003-02-11 12:47:00 설정이 변경되었습니다.' |    |
|'2003-02-11 12:57:00 설정이 변경되었습니다.' |    |
|'2003-02-11 13:07:00 설정이 변경되었습니다.' |    |
|                                                               |▽ |
-----------------------------------------------

이렇게요...^^:;;

님들이 갈쳐준 방법으로 하니깐

글자가 아예 옆으로 붙어서 나타나더라구요

  -----------------------------------------------
|'2003-02-11 12:17:00 설정이                         |△ |
| 변경되었습니다.' '2003-02-11 12:17:00 설정이|    |
| 변경되었습니다.' '2003-02-11 12:47:00 설정이|    |
| 변경되었습니다.'                                       |    |
|                                                               |    |
|                                                               |▽ |
-----------------------------------------------
이렇게욤

급한 마음에 그림을 그렸습니다.

바쁘신데 답변 감사하구요..  

어떻게 해결해야 할까요 답변 부탁드립니다.

리치에디트에 인서트한후 아래메시지를 던지면
리치에디트이 마지막으로 가거든요...

SendMessage(RichEdit1.Handle, EM_SCROLLCARET, 0, 0);

즐프하세요...

음..

답변 감사합니다. 그런데요

소스가

  ls_set_msg := ls_show_time +' '+'설정이 변경되었습니다.' ;
  RichEdit1.Text := RichEdit1.Text + ls_set_msg +chr(10);
  RichEdit1.Perform(WM_VSCROLL, SB_BOTTOM, 0);

이렇게 했거든요

edit박스에 한줄씩 잘 나옵니다.

그런데 문제는 칸이 다 찾을경우 스크롤이 마지막 메세지가 보이게 해야하는데

맨 마지막에 공백이 여러개 있어서 공백만 보이더라구요

그래서 제 생각에 마지막의 CRLF를 제거 하고자 질문을 드렸는데 ^^:;;

이런경우는 어떻게 해야할까요

답변부탁드립니다.

즐코하세요~~~

다추가하고난뒤 이렇게 하심 되겟네여..

  for i := RichEdit.Lines.Count-1 downto 0 do
  begin
    if RichEdit.Lines[i] = '' then
      RichEdit.Lines.Delete(i);
  end;

위 문장은 RichEdit 의 마지막 라인부터
공백이 아닌 라인을 만날때까지 삭제하는 문장입니다.

즐거운 프로그래밍 하시길~~