자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi DBMemo 컴퍼넌트에서 엔터키 누를때 음표(♪, 동그라미) 없애는 방법
2016.12.12 18:19
본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
1. 개발/실행 플랫폼
(1) OS : 윈도우7
(2) 개발툴 : 델파이7
(3) 사용 Database : MSSQL 2014
2. 개발 중인 프로그램
3. 질문 내용
이미지에서 보시는 것처럼 입력폼에서 문의내용(DBMemo) 처리내용(DBMemo) 컴포넌트를 이용해
엔터키를 사용해 줄바꿈을 하면서 입력을 한후 저장을하면
메인폼의 DBgrid 칼럼 에서는 엔터키값이 ♪ο 이런값이 보여지네요.
키의 #13 #10 값이 저렇게 나타나는거 같은데...
저걸 없애는 방법이 없을까요..
검색을해봐도 마땅한 방법을 못찾겠네요.
Font 는 굴림체
스크립트는 한글
charset 는 DEFAULT_CHARSET
ImeMode 는 imDontCare
ImeName 는 Microsoft Office IME 2007
요렇게 되어있습니다
일단은
var
sString, qString : String;
begin
sString := Form1.ADOQuery1.FieldByName('문의사항').AsString;
qString := StringReplace(sString,#13#10,' ',[rfReplaceAll,rfIgnoreCase]);
Form1.ADOQuery1.FieldByName('문의사항').AsString := qString;
end;
이렇게 해봤더니
음표와동그라미는 사라지고 그 대신 ' ' 값이 들어가서 정리가 되긴하는데요.
줄바꿈대신에 띄어쓰기로 대체한 임시방편밖에 안되네요.
StringReplace(sString,#13#10,{이안에 줄바꿈해줄 다른 키를 넣어줘야하는데},[rfReplaceAll,rfIgnoreCase]);
#13#10말고 다른키값이 있는지 모르겠네요.
댓글 0
Delphi DBMemo 컴퍼넌트에서 엔터키 누를때 음표(♪, 동그라미) 없애는 방법
2016.12.12 18:19
본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
1. 개발/실행 플랫폼
(1) OS : 윈도우7
(2) 개발툴 : 델파이7
(3) 사용 Database : MSSQL 2014
2. 개발 중인 프로그램
3. 질문 내용
이미지에서 보시는 것처럼 입력폼에서 문의내용(DBMemo) 처리내용(DBMemo) 컴포넌트를 이용해
엔터키를 사용해 줄바꿈을 하면서 입력을 한후 저장을하면
메인폼의 DBgrid 칼럼 에서는 엔터키값이 ♪ο 이런값이 보여지네요.
키의 #13 #10 값이 저렇게 나타나는거 같은데...
저걸 없애는 방법이 없을까요..
검색을해봐도 마땅한 방법을 못찾겠네요.
Font 는 굴림체
스크립트는 한글
charset 는 DEFAULT_CHARSET
ImeMode 는 imDontCare
ImeName 는 Microsoft Office IME 2007
요렇게 되어있습니다
일단은
var
sString, qString : String;
begin
sString := Form1.ADOQuery1.FieldByName('문의사항').AsString;
qString := StringReplace(sString,#13#10,' ',[rfReplaceAll,rfIgnoreCase]);
Form1.ADOQuery1.FieldByName('문의사항').AsString := qString;
end;
이렇게 해봤더니
음표와동그라미는 사라지고 그 대신 ' ' 값이 들어가서 정리가 되긴하는데요.
줄바꿈대신에 띄어쓰기로 대체한 임시방편밖에 안되네요.
StringReplace(sString,#13#10,{이안에 줄바꿈해줄 다른 키를 넣어줘야하는데},[rfReplaceAll,rfIgnoreCase]);
#13#10말고 다른키값이 있는지 모르겠네요.
