Q&A
- 길이 계산시 한글 길이 계산하는 법좀
메모 컴퍼넌트에..
글을 쓸때마다...길이를 계산해서 보여주게 만들었습니다..
procedure TForm1.MsgKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [#32..#127] then
begin
Msg.Text := Msg.Text + key;
Msg.SelStart := Length(Msg.Text);
Msg.SelLength := 1;
Msg_Length.Caption := inttostr(Length(Msg.Text)) + '/80';
Key := #0;
exit;
end;
end;
글을 누르면 메모에 더해지고 그때의 길이를 구해서 라벨의 캡션을 바꿔주는건데..
삭제(backspace)하고 한글 입력할때는 계산이 안되더군요.
영어는 잘되는데..
어디를 고쳐야 하는지 좀 알려주세요..
삭제는 눌러지는 키에 추가시키면 글자가 지워지는게 아니라.이상한 문자가 생기더군요..ㅠ.ㅠ
글을 쓸때마다...길이를 계산해서 보여주게 만들었습니다..
procedure TForm1.MsgKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [#32..#127] then
begin
Msg.Text := Msg.Text + key;
Msg.SelStart := Length(Msg.Text);
Msg.SelLength := 1;
Msg_Length.Caption := inttostr(Length(Msg.Text)) + '/80';
Key := #0;
exit;
end;
end;
글을 누르면 메모에 더해지고 그때의 길이를 구해서 라벨의 캡션을 바꿔주는건데..
삭제(backspace)하고 한글 입력할때는 계산이 안되더군요.
영어는 잘되는데..
어디를 고쳐야 하는지 좀 알려주세요..
삭제는 눌러지는 키에 추가시키면 글자가 지워지는게 아니라.이상한 문자가 생기더군요..ㅠ.ㅠ
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 한기돈
- •
- 2002.12.04 10:04
- 1 COMMENTS
- /
- 0 LIKES
-
김종균•2002.12.05 01:14edit로 바로 값을 받지 말구여 파라미터를 이용해 보세요 query1.sql.add('where bookname = :p1'); q...
-
- 윤효진
- •
- 2002.12.04 07:18
- 2 COMMENTS
- /
- 0 LIKES
-
김종균•2002.12.04 10:56저두 아직 초보지만... 제가 해본거를 토대로 ... 답변 아닌 답변 드립니다. 우선 조회를 하려면 쿼리...
-
하기•2002.12.04 19:01아마도 마지막 레코드의 한줄만 나온다는 이야기는 qreport에서 그렇다는 이야기 같군요... 한번 확인해 ...
-
- 김훈배
- •
- 2002.12.04 05:03
- 2 COMMENTS
- /
- 0 LIKES
-
비앙기•2002.12.04 14:34와아.. Vector 관련 일를 하시나보지요오.. 파일포맷를 버젼대별로 디렉토리만들어서 올림니다. ...
-
김훈배•2002.12.04 19:13.
-
- 샤리
- •
- 2002.12.04 03:31
- 5 COMMENTS
- /
- 0 LIKES
-
머슴•2002.12.04 18:09먼저 첫번째 쿼리가 항상 유일값을 가지는지가 가장 궁금합니다. ...
-
샤리•2002.12.04 19:04답변 보고..이렇게 했는데요.. SQL.Add('SELECT A.Pr...
-
머슴•2002.12.04 19:29select 에 또 '' 이걸 안해주셔도 상관없습니다.. with query1 do...
-
김종균•2002.12.04 11:02질문에 맞는 답변인지는 모르겠지만... 하나의 셀렉트의 값을 이용해서 다른 셀렉트에서 사용하려면... ...
-
사발우성•2002.12.04 18:28SELECT A.PriceCode,A.Gubun_Code, A.Price, A.Price_Date, B.Code_Name From Tb_PricePlan A, Tb_Price...
-
- byun
- 2002.12.04 03:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 정용광
- 2002.12.04 03:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 누룽지
- 2002.12.04 02:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 김만구
- 2002.12.04 02:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 썬
- 2002.12.04 00:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 이이수
- •
- 2002.12.04 00:19
- 2 COMMENTS
- /
- 0 LIKES
-
컴돌•2002.12.04 01:21안녕하세요 저두 델파이 초보랍니다 제가 공부한것중에서 paramcount 와 paramstr 이라는것...
-
김지엽•2002.12.04 01:07왠만한 답은 델파이 헬프에서 찾을 수 있으니 참고하세요. ParamCount, ParamStr 프로퍼티를 이용하면 ...
-
- 왕초보
- •
- 2002.12.03 23:01
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_ZZOM•2002.12.04 00:03필드타입을 serial 로 해보세요... 근데 저도 인포믹스 사용하고 있는데... 별루 필요치가 않아서 사용한...
-
- 김상수
- •
- 2002.12.03 22:00
- 1 COMMENTS
- /
- 0 LIKES
-
깨구락지•2002.12.03 22:58차이 Function : 리턴값이 있다. Procedure : 리턴값이 없다. 선언및 사용 Interface ... Function...
-
- 배경
- 2002.12.03 21:29
- 0 COMMENTS
- /
- 0 LIKES
-
- ^ㅡ^
- •
- 2002.12.03 21:28
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.03 21:55안녕하세요. 최용일입니다. 이미지리스트(TImageList)를 쓰세요. 각각의 라인수만큼의 이미지를 이미지...
-
^ㅡ^•2002.12.04 00:48제가 이렇게 해 봤는데 ㅠ.ㅠ var TempList : TListitem; begin for I:=0 to 7 do ...
-
- 차력사 김무옥
- •
- 2002.12.03 21:08
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.03 21:59안녕하세요. 최용일입니다. 그냥 쿼리문 앞뒤의 시간을 계산해서 구하면 되지 않을까요? var ...
-
- 델쿠이
- •
- 2002.12.03 20:48
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.03 22:05안녕하세요. 최용일입니다. 그냥 5분을 더하면 됩니다... var CurTime: TD...
-
- 최종민
- •
- 2002.12.03 20:12
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.03 22:08안녕하세요. 최용일입니다. DirectSound를 이용하시면 될거 같네요. 이건 믹싱이 가능하니까... 흠~ ...
-
최종민•2002.12.04 05:45용일님...죄송한데요... 참고할만한 책을 알려주시거나... 혹시 있으면 예제 좀 주실 수 있을까요? 좀처...
-
- 도니
- •
- 2002.12.03 19:47
- 1 COMMENTS
- /
- 0 LIKES
메모 컴퍼넌트에.. 글을 쓸때마다...길이를 계산해서 보여주게 만들었습니다.. procedure TForm1.MsgKeyPress(Sender: TObject; var Key: Char); begin if Key in [#32..#127] then begin Msg.Text := Msg.Text + key; Msg.SelStart := Le...-
하얀까마귀•2002.12.04 00:46안녕하세요 하얀까마귀 입니다. keypress 에서 길이를 구하시는거 보니 아마두 값이 없어서 그런것 같네...
-
- 이치영
- 2002.12.03 19:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 이수열
- •
- 2002.12.03 19:44
- 1 COMMENTS
- /
- 0 LIKES
-
이수열•2005.06.18 07:49오랜 시간 맘에 묻어둔거 간만에 꺼내서 함 해봤더니만.... 에러가 나는 이벤트의 핸들러에서 그...
keypress 에서 길이를 구하시는거 보니 아마두 값이 없어서 그런것 같네요.
첫번째문제는 한글의 경우 ( 이건 영어권이 아닌 문자는 거의다 그렇죠 일본어나 한자나.. ) 한글을 입력받으면 실제로 들어가는게 아니거든요.
입력하신건 모양이 다르잖아요? 그러한 이유가 실제로는 IME에 있기
때문입니다.
그리고 아직 문자가 만들어진게 아니기 때문에..
Msg.Text := Msg.Text + key; 이렇게 하시면 깨지죠..
그리고
if Key in [#32..#127] then
이렇게 값을 제한하셧으니 이건 한글은 전혀 입력이 안될것 같네요..
님께서는 그냥 영어정도만 입력되게 하신겁니다.
해당 부분을 고쳐주시면 가능할 껍니다.
그럼..