Q&A
- 에디트 박스에 한글과 영문 입력시 문자수를 알아내는 방법?
에디트 박스에 한글과 영문을 입력했습니다. 입력된 문자가 몇개인지
알수 있는 방법을 좀 알고 싶습니다.
예를 들어 '대한민국KOREA' 에 입력된 문자가 몇개인지 말이죠...
legth 함수를 사용하면 13 이란 값이 나오죠.. 제가 원하는 건 "대한민국"
이란 문자길이가 8이 아닌 4를 원하는 겁니다.
초보가 델파이 고수님께 고개숙여 여쭤봅니다.
알수 있는 방법을 좀 알고 싶습니다.
예를 들어 '대한민국KOREA' 에 입력된 문자가 몇개인지 말이죠...
legth 함수를 사용하면 13 이란 값이 나오죠.. 제가 원하는 건 "대한민국"
이란 문자길이가 8이 아닌 4를 원하는 겁니다.
초보가 델파이 고수님께 고개숙여 여쭤봅니다.
2
COMMENTS
-
-
--------------------------------------------
글쎄요 저같으면 대충 아래와 같이 해보겠습니다.
var i, j, k : Integer;
begin
i := Length(str);
j := 1;
k := 0;
while i >= j do
begin
if ByteType(str, j) = mbLeadByte then
begin
k := k + 1;
j := j + 2;
end
else
begin
k := k + 1;
j := j + 1;
end;
end;
될지 안될지는 장담은 못하는데 위의 ByteType를 이용하면 쉽게 가능함
(NOTICE) You must be logged in to comment on this post.
-
- 최진아
- •
- 2002.12.28 10:18
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•2003.01.16 22:12정확히는 모르지만요. 권한설정이 바뀌었거나 tcp/ip쪽에 이상이 생겼을 수 있습니다. mysql지우고 새...
-
- 델사랑
- •
- 2002.12.28 07:40
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2002.12.28 23:49안녕하세요~ 구창민입니다. 제가 예전에 사용한 소규모 MDB 를 압축하고 복구했던 방법입니다. 참고... -
권민호•2002.12.28 13:13------------------------- ZipMaster라는 콤포넌트를 이용하면 됩니다.(자료실에 있지 않나?) 하지만 한...
-
- 전덕성
- •
- 2002.12.28 05:59
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•2003.01.16 22:14혹시 쿼리와 DBGrid붙여놓고 쿼리한 값으로 직접 입력을 하시나요? 그렇다면 쿼리컴포넌트의 RequestLiv...
-
- 최은하
- •
- 2002.12.28 03:36
- 1 COMMENTS
- /
- 0 LIKES
-
소울해커•2002.12.28 08:53uses Buttons; ... private SpeedBtn: TSpeedButton; ... procedure TForm1.FormCreate(Se...
-
- 차력사 김무옥
- •
- 2002.12.28 03:35
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.28 22:31안녕하세요. 최용일입니다. DBGrid와 연결된 Query컴포넌트에서 필드추가하시고 그 필드의 OnSetText이...
-
윤승환•2002.12.28 08:33제생각에는 방법이 없는듯 한데요. 디비그리드는 쿼리 자체를 받는것이기 때문에 디비그리드 자체에서 ...
-
- 노계섭
- •
- 2002.12.28 03:32
- 2 COMMENTS
- /
- 0 LIKES
-
윤승환•2002.12.28 08:29이렇게 하심이 어떨까요... str := StringGrid1.Cells[0,1]; i := pos('(주...
-
소울해커•2002.12.28 08:19TBV_SANGHO := StringReplace(SG_Gird.Cells[2,I],'(주)','',rfReplaceAll]); ...
-
- 어린왕자A
- •
- 2002.12.28 02:58
- •
- 1 COMMENTS
- /
- 0 LIKES
-
김수경•2002.12.28 19:30메모 내용을 보관한 *.dbt File이 없어서 열어 볼 수가 없습니다. 첨부해 주세요
-
- 낭만제임스
- •
- 2002.12.28 02:39
- 2 COMMENTS
- /
- 0 LIKES
에디트 박스에 한글과 영문을 입력했습니다. 입력된 문자가 몇개인지 알수 있는 방법을 좀 알고 싶습니다. 예를 들어 '대한민국KOREA' 에 입력된 문자가 몇개인지 말이죠... legth 함수를 사용하면 13 이란 값이 나오죠.. 제가 원하는 건 ...-
남충희•2002.12.31 04:19var wSt : WideString; begin wSt := Edit1.Text; &nb...
-
권민호•2002.12.28 13:24-------------------------------------------- 글쎄요 저같으면 대충 아래와 같이 해보겠습니다. var i,...
-
- 도니
- •
- 2002.12.27 21:47
- 8 COMMENTS
- /
- 0 LIKES
-
임형호•2002.12.28 00:45혹시 예전의 질답게시판을 찾아보셨는지요? 위에 보면 초보자들이 처음시작을 하는데 필요한 상식이라고 ...
-
도니•2002.12.28 00:51그렇군요..거기도 한번 검색해 봐야겠네요.>^^;; 출력할때 마다 값이 증가한다는건요.. 프리뷰에서 미...
-
임형호•2002.12.28 01:26혹시 찾고 계신게 ForceNewPage 속성이 아니신지요..???
-
열심히•2002.12.27 22:48출력할떄마다 값이 증가하는 이유는.. 메모리 해제가 제대로 안됐던것 같네요... create(appli...
-
석•2002.12.28 00:30혹시 BeforePrint라는 Event에서 값을 설정한게 아닙니까? BeforePrint는 Preview에서도 그리고 Print를 ...
-
도니•2002.12.28 00:13메모리 해제할 필요없이 출력한번하고난뒤에 초기화를 해주면 될꺼 같은데.. 어디서 해줘야하는지요.. ...
-
jangumma•2002.12.28 05:12혹시 이걸 찾는 건 아닌지? TQRExpr의 속성 중 ResetAfterPrint를 True로 설정 하심이... TQRLabel을...
- • • •
-
- 최종일
- •
- 2002.12.27 21:40
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.27 22:34안녕하세요. 최용일입니다. 허~ 질문이 참 황당하네요... 뭐 아무런 설명도 없이 무작정 발신자 번호 표...
-
- 엄문용
- 2002.12.27 21:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 미니
- •
- 2002.12.27 21:26
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2002.12.27 22:50안녕하세요~ 구창민입니다. 아래 코드는 파워러브델파이에 기고 되었던 MDI 차일드 폼을 DLL 로 사용...
-
미니•2002.12.27 23:02답변주셔서 감사합니다. 죄송하지만 제가 질문을 잘못한거 같군요 ! 제 말은 메인폼에서 호출할 DLL폼이 ...
-
- 도니
- •
- 2002.12.27 21:08
- 5 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.27 22:37안녕하세요. 최용일입니다. if Dialog.Execute then begin 파일열기; 파일...
-
LuckyBoy•2002.12.27 21:27MessageBox의 Help를 찾아보시면 답이 나와 있습니다.. 하시고 싶은 메세지를 띄울때.. 다음과 같이 해...
-
도니•2002.12.27 21:50또 메세지 박스가 아니라요.. 세이브다이얼로그에서...취소를 누르면.. 저 밑에 파일 저정하는 부분에서 ...
-
구창민•2002.12.27 22:08안녕하세요~ 구창민입니다 취소시에는 if SaveDialog.FileName = '' then 이렇게 비교하면 되겠죠. ...
-
도니•2002.12.27 22:28
-
- 반프
- 2002.12.27 18:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 하기현
- •
- 2002.12.27 17:46
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.27 22:42안녕하세요. 최용일입니다. 좌표로 자식윈도우핸들구할때는 ChildWindowFromPoint 이 함수 쓰구요... ...
-
- 초보짱..
- •
- 2002.12.27 15:35
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2002.12.27 23:29안녕하세요~ 구창민입니다. 아래 코드처럼, try ... &...
-
초보짱..•2002.12.28 02:37--------------------- 님 감사합니다....^^ 그런데 그렇게 해보니 에러메세지스트링은 받을수 있는데 ...
-
- goodlsw
- 2002.12.27 10:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 엄화용
- •
- 2002.12.27 09:54
- 1 COMMENTS
- /
- 0 LIKES
-
열심히•2002.12.27 20:43조인이 하나만 걸린게 아니라 두번 걸렸다는 뜻인데요.. 이 세개의 테이블을 조인하면서 님이 원하시는 ...
-
- Formas
- •
- 2002.12.27 07:28
- 1 COMMENTS
- /
- 0 LIKES
-
DelChoBo•2002.12.27 21:00아래와 같이 pchar()로 해보시길.. MessageBox(0,pchar(inttostr(100)),'test',MB_OK) 그럼..
-
- 도니
- •
- 2002.12.27 06:53
- 1 COMMENTS
- /
- 0 LIKES
-
DelChoBo•2002.12.27 20:53pas에서와 동일합니다. uses에 해당 컴포넌트에 관련된 파일을 추가해 주시고, var 부분에 선언, Create ...
wSt : WideString;
begin
wSt := Edit1.Text; // 대한민국1234
Caption := IntToStr(Length(wSt)); // 8
end;