Q&A
- 소스 분석좀 해주세요..
function WanJoChg(Src : string; p_mode : Boolean):string;
var sImsi : String;
I : Integer;
Code : Word;
begin
I := 1;
While I <= Length(Src) do begin
if Src[I] < #128 then sImsi := sImsi + Src[I]
else begin
Code := (Byte(Src[I]) shl 8) + Byte(Src[I+1]);
if p_mode then Code := KSSM2KS(Code)
else Code := KS2KSSM(Code);
if Code = 0 then sImsi := sImsi + ' '
else sImsi := sImsi + Chr(Hi(Code)) + Chr(Lo(Code));
Inc(I);
end;
Inc(I);
end;
Result := sImsi;
end;
한글을 완성형 <-> 조합형 해주는 펑션중 일부 입니다
다른건 대충이라도 하겠는데 이 펑션은 감도 못잡겠어요..
shl의 역활과 Src[I] 이거는 머고;;
답변좀 부탁드립니다..
var sImsi : String;
I : Integer;
Code : Word;
begin
I := 1;
While I <= Length(Src) do begin
if Src[I] < #128 then sImsi := sImsi + Src[I]
else begin
Code := (Byte(Src[I]) shl 8) + Byte(Src[I+1]);
if p_mode then Code := KSSM2KS(Code)
else Code := KS2KSSM(Code);
if Code = 0 then sImsi := sImsi + ' '
else sImsi := sImsi + Chr(Hi(Code)) + Chr(Lo(Code));
Inc(I);
end;
Inc(I);
end;
Result := sImsi;
end;
한글을 완성형 <-> 조합형 해주는 펑션중 일부 입니다
다른건 대충이라도 하겠는데 이 펑션은 감도 못잡겠어요..
shl의 역활과 Src[I] 이거는 머고;;
답변좀 부탁드립니다..
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
-
- 고가람
- •
- 2003.04.30 09:46
- •
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2003.04.30 11:24CheckBox Create 할때 Visible 을 False 하고 DrawCell할때 Visible을 True 하면 되긴되는데 쩝. 전 스...
-
- KDDG_hyun
- •
- •
- 2003.04.30 07:43
- 1 COMMENTS
- /
- 4 LIKES
function WanJoChg(Src : string; p_mode : Boolean):string; var sImsi : String; I : Integer; Code : Word; begin I := 1; While I <= Length(Src) do begin if Src[I] < #128 then sImsi := sImsi + Src[I] else begin Code := (Byte(...-
이중철•2003.04.30 08:09먼저 스트링의 구조부터 말씀 드릴께요.. 일반 스트링은 (여기서 Src : string)... string은 255Byte를 ...
-
- 최풍길
- 2003.04.30 07:17
- 0 COMMENTS
- /
- 0 LIKES
-
- KDDG_hyun
- •
- 2003.04.30 06:54
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_Check•2003.04.30 19:16
-
- 쏘녕쓰
- •
- 2003.04.30 06:32
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_hyun•2003.04.30 06:57datasource 콤포를 쓰세요.. 쿼리 - datasource - 그리드 순서로 연결 하시면 될겁니다.. ...
-
- 백승천
- 2003.04.30 05:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정민
- •
- 2003.04.30 05:33
- 3 COMMENTS
- /
- 0 LIKES
-
김정민•2003.04.30 18:54아래 답변과 같이 처리해도 달라지는게 없습니다. 참고로 2번 문장을 그냥 델파이 폼에 작성하면 메...
-
이중철•2003.04.30 07:37먼저 1번이 문제인것 같네요 SendMessage(HWND_BROADCAST, WM_COMMAND, WM_USER + 201, 0); 보낼때 ...
-
이중철•2003.04.30 22:04웹환경의 ActiveForm 인줄 몰랐어요.. 이쪽 프로그램밍을 거의 안해봐서 인지를 못했네요. 그런데 정방법...
-
- help me
- 2003.04.30 05:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 이종택
- 2003.04.30 05:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 박준철
- •
- 2003.04.29 23:42
- 1 COMMENTS
- /
- 0 LIKES
-
오병주•2003.04.30 01:48
-
- delcho
- 2003.04.30 03:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 류제규
- •
- 2003.04.30 02:30
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2003.09.02 18:34안녕하세요. 타락임다. 안된다고 생각하세요. Win9X 계열이라면 가능할 수도 있지만, WinNT 계열에선...
-
- 이강석
- •
- 2003.04.30 02:28
- 2 COMMENTS
- /
- 0 LIKES
-
김진용•2003.05.09 18:15font 의 charset 값이 아마 ansi_charset으로 되어 있을껍니다.. 이것을 default_charset 이나 ,hangeul_ch...
-
조운석•2003.04.30 22:53XP쓰신다면 폰트에 한글 케릭터셋으로 셋팅하시고 다시 컴파일 해서 98에서 실행해보세요..^^*
-
- 한영란
- •
- 2003.04.30 01:51
- 1 COMMENTS
- /
- 0 LIKES
-
한영란•2003.04.30 03:39사실 제가 C소스를 델파이버전으로 번역하느라 너무 문구에 매여 이런 불상사를 초래했나봐요. GetMem...
-
- LuckyBoy
- •
- 2003.04.30 01:28
- 2 COMMENTS
- /
- 0 LIKES
-
프리맨•2003.04.30 07:54그냥 ClientToScreen을 쓰시지요.. var p:TPoint; p:=Button1.ClientToScreen(Point(0,0)); 이렇...
-
꿈의대화•2003.04.30 02:17.
-
- 궁금이
- 2003.04.30 01:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 박대석
- •
- 2003.04.30 00:46
- 2 COMMENTS
- /
- 0 LIKES
-
박대석•2003.05.12 18:46이문제 해결 했습니다. DBGRID문제입니다. DBGRID에서 Editing작업을 수행하는 프로그램이 있으면 이 문...
-
한원희•2003.05.01 01:41안녕하세요. 한원희입니다. 저도 그런 경험이 있어서 참고로 말씀드리겠습니다. 제 경우, 프로그램이...
-
- 조정연
- 2003.04.30 00:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 정우성
- 2003.04.30 00:12
- 0 COMMENTS
- /
- 0 LIKES
일반 스트링은 (여기서 Src : string)...
string은 255Byte를 쓸수 있으며 첫번째 바이트에는 길이가 들어 있어요
예로 Src := 'ABCD';
이경우 Src[0] <= 4;길이가 들어가 있고
Src[1] = 'A' Src[2] = 'B' Src[3] = 'C' Src[4] = '4'
이런식으로 있죠
아래 루틴을 보면 I := 1 이렇게 시작하죠 바로 0번째는
길이가 들어 있어서 1 부터 시작한것 입니다.
두번째로 Shl 을 말씀 드릴께요
Shl 은 비트 연산자 입니다.
한번 이 코드를 볼까요
Src[I] := 'A'; Src[I+1] := 'B'; 이렇게 가정해보죠;
Code := (Byte(Src[I]) shl 8) + Byte(Src[I+1]);
Src[i] 를 좌측으로 8번 비트 이동을 하고 그자리에
Src[I+1]을 갖다 놓은거죠
즉, 'A' = 1000001 'B' = 1000010 (비트)
1000001 shl 8 => 100000100000000
+ 1000010
=100000101000010
= 16706(10진수)
그래서 Code에는 'AB' 이런식으로 저장됩니다.
정 이해가 힘들다 싶으면
Code := Byte(Src[I]) * 256 + Byte(Src[I+1]);
이렇게 해도 결과는 같습니다.
그럼 이만 즐코..