Q&A
- $80이 머예요????
안녕하세요? 고수가 되고자 열심히 노력중인 타임입니다.^^
아래소스에서요
integer($80) <-- 요것이 무엇인데 요걸 가지고 2byte 한글을 판단하는거죠?
그리고 훅은 머죠? @는 배열에 쓰는것인가요???
궁금해요~~~ ^o^
그리고 존 주말들 보내시길~
procedure TForm1.Button1Click(Sender: TObject);
var
i, n : integer;
source : string;
cTmp : char;
sTmp : string;
begin
source := '가나ABC다';
n := Length(Source);
i := 1;
while i <= n do begin
sTmp := '';
cTmp := Source[i];
// Double byte char
if ((integer(cTmp) and integer($80)) = integer($80)) then begin
sTmp := cTmp;
Inc(i);
cTmp := Source[i];
end;
sTmp := sTmp + cTmp;
Showmessage(sTmp);
Inc(i);
end;
end
아래소스에서요
integer($80) <-- 요것이 무엇인데 요걸 가지고 2byte 한글을 판단하는거죠?
그리고 훅은 머죠? @는 배열에 쓰는것인가요???
궁금해요~~~ ^o^
그리고 존 주말들 보내시길~
procedure TForm1.Button1Click(Sender: TObject);
var
i, n : integer;
source : string;
cTmp : char;
sTmp : string;
begin
source := '가나ABC다';
n := Length(Source);
i := 1;
while i <= n do begin
sTmp := '';
cTmp := Source[i];
// Double byte char
if ((integer(cTmp) and integer($80)) = integer($80)) then begin
sTmp := cTmp;
Inc(i);
cTmp := Source[i];
end;
sTmp := sTmp + cTmp;
Showmessage(sTmp);
Inc(i);
end;
end
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- volf
- •
- 2000.11.12 05:24
- 1 COMMENTS
- /
- 0 LIKES
-
남기석•2000.11.13 08:16안녕하세요 청개구리 남기석( http://www.delphitravel.com )입니다. 스플래쉬 폼의 BorderStyle 을 bs...
-
- 윤종필
- •
- 2000.11.12 03:41
- 3 COMMENTS
- /
- 0 LIKES
-
김재억•2000.11.12 09:21혹시 도움이 될지 모르겠슴돠. 저 역시 윈98환경에서만 플밍하기 때문에... 아래에 시스템 종료에 대한 ...
-
윤종필•2000.11.12 17:58답변주셔서 감사합니다. 그런데 그렇게 해도 아무 반응이 없네요. InitiateSystemShutdown(Nil ,'' , 0...
-
김영운•2000.11.14 04:11혹시 권한문제는 아닐까 생각해보네요 윤종필 wrote: > 답변주셔서 감사합니다. > 그런데 그렇게 해...
-
- won
- 2000.11.12 03:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 3107
- 2000.11.12 02:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영현
- 2000.11.12 02:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 아기코알라
- •
- 2000.11.13 01:27
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.11.13 01:27아기코알라 wrote: > 안녕하세요 델 초보 아기 코알라입니다. > 자꾸 여러가지로 도움만 받아 죄송한데 ...
-
- Tora
- •
- 2000.11.12 01:35
- 1 COMMENTS
- /
- 0 LIKES
-
한하눌•2000.11.13 19:05Tora wrote: > 크리스탈 레포트에서 오라클 8.x 버전은 상관이 없는데.. > ex) Select * from A > ...
-
- 영화....
- •
- 2000.11.12 00:33
- 1 COMMENTS
- /
- 0 LIKES
-
제우스•2000.11.13 05:14영화.... wrote: > 안녕하세요... > 학교에서 프로그램을 배우고 있는데여, 증말 하나도 모르겠거든요......
-
- 정영민
- •
- 2000.11.12 00:02
- 2 COMMENTS
- /
- 0 LIKES
-
이렇게 해보세요•2001.05.26 02:01제어판->인터넷옵션->보안탭을 선택하시고 인터넷 보안수준을 사용자 정의를 선택하셔서 거기에 중간쯤...
-
최진환•2000.11.14 00:20정영민 wrote: > 안녕하세요.. > > 델파이 코리아에 올라와있는 하영재님의 강좌와 iNetSDK 를 이용해 ...
-
- 서비
- •
- 2000.11.12 22:38
- 1 COMMENTS
- /
- 0 LIKES
-
김종찬•2000.11.12 22:39서비 wrote: > 안녕하세요...질문 좀 드릴려고... > > Access Violation Error라고 뜨는데요... > ...
-
-
김일영•2000.11.11 23:40한상훈 wrote: > A:array of integer; > > SetLength(A,n); > > 이후 A의 배열을 삭제한후 새로운 S...
-
한상훈•2000.11.12 00:29답변주셔서 감사하구여.. 그럼 수차례 지정,삭제해도 메모리의 손실은 없는건가요..? 김일영 wrote: >...
-
김일영•2000.11.12 22:44.
-
-
- shappy
- •
- 2000.11.11 23:13
- 2 COMMENTS
- /
- 0 LIKES
-
껄떡쇠•2000.11.15 10:31안녕하세요. 저도 그거 하려다가 포기했었거든요... 별로 도움이 안될것 같지만서도 윈도우즈탐색기는 ...
-
shappy•2000.11.15 20:31껄떡쇠 wrote: > 안녕하세요. 저도 그거 하려다가 포기했었거든요... > > 별로 도움이 안될것 같지만서...
-
- TIME
- •
- 2000.11.12 00:09
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요? 고수가 되고자 열심히 노력중인 타임입니다.^^ 아래소스에서요 integer($80)-
김종찬•2000.11.12 01:01TIME wrote: > 안녕하세요? 고수가 되고자 열심히 노력중인 타임입니다.^^ > 아래소스에서요 > integer...
-
- 이문환
- 2000.11.11 23:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 이태일
- •
- 2000.11.11 22:45
- 1 COMMENTS
- /
- 0 LIKES
-
mafioso•2000.11.12 08:24아래 내용은 다른 분이 올리신 답변을 옮긴 것 입니다. 제가 몇마디 첨언하자면 ntwdblib.dll 외에 연결...
-
- 초보
- 2000.11.11 22:44
- 0 COMMENTS
- /
- 0 LIKES
-
- won
- 2000.11.11 22:36
- 0 COMMENTS
- /
- 0 LIKES
-
- won
- 2000.11.11 21:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 이태일
- 2000.11.11 20:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 토토
- •
- 2000.11.11 20:16
- 1 COMMENTS
- /
- 0 LIKES
-
뻐록이•2000.11.11 20:42토토 wrote: > 제목그대로입니다. > 고수님들의 조언 부탁합니다. > 어떤 특정디렉토리의 그림화일들을 ...
> 안녕하세요? 고수가 되고자 열심히 노력중인 타임입니다.^^
> 아래소스에서요
> integer($80) <-- 요것이 무엇인데 요걸 가지고 2byte 한글을 판단하는거죠?
> 그리고 훅은 머죠? @는 배열에 쓰는것인가요???
> 궁금해요~~~ ^o^
> 그리고 존 주말들 보내시길~
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> i, n : integer;
> source : string;
> cTmp : char;
> sTmp : string;
> begin
> source := '가나ABC다';
>
> n := Length(Source);
>
> i := 1;
>
> while i <= n do begin
> sTmp := '';
> cTmp := Source[i];
>
> // Double byte char
> if ((integer(cTmp) and integer($80)) = integer($80)) then begin
> sTmp := cTmp;
> Inc(i);
> cTmp := Source[i];
> end;
>
> sTmp := sTmp + cTmp;
>
> Showmessage(sTmp);
>
> Inc(i);
> end;
> end
[참고]
integer($80)에서 $는 Hex 즉 16진수를 의미하고, 10진수로 바꾸면 128이 됩니다.
그리고 아스키 코드(이 홈페이지의 화면 좌측의 도구/아스키 코드를 참조)를 보면
Hex로 7F(10진수로 127) 까지가 보통쓰는 영문 아스키 코드 입니다.
Hex로 80에서 FF까지는 한글코드의 사용 부분입니다. 그래서 한글에서는 최상위
Bit(Hex80)가 ON 됩니다.
integer는 word, byte등의 숫자를 integer type으로 변환시켜 줍니다.
정리:
if ((integer(cTmp) and integer($80)) = integer($80)) then begin 의 의미는 cTmp의 최상위 bit가 ON이 되었는지 알아보는 문장입니다.
좋은 주말 보내세요.