Q&A
- vb로된걸 델파이로 옮겨야 하는데... 도와줘요...
If KSC2VS Then
CodePoint = (Asc(strSrc) - Val("&HA1A1"))
CodePoint = CodePoint * 2 + 4
If CodePoint > 0 Then
TransCode = Chr(mKSC2VSTbl(CodePoint)) & Chr(mKSC2VSTbl(CodePoint + 1))
End If
Else
CodePoint = ((Asc(Mid(strSrc, 1, 1)) - Asc("!")) * 256 + (Asc(Mid(strSrc, 2, 1)) - Asc("!")))
CodePoint = CodePoint * 2 + 4
If CodePoint > 0 Then
TransCode = Chr(Val("&H" + Hex(mVS2KSCTbl(CodePoint)) + Hex(mVS2KSCTbl(CodePoint + 1))))
End If
End If
CodePoint = (Asc(strSrc) - Val("&HA1A1"))
VB에서는 Val("&HA1A1")의 값과
DELPHI의 StrToInt("$A1A1")의 값이 다르게 나오는 등 ... 나름대로 변환을 해봤는데.
결과 값이 다르게 나오네요.. 방법좀 알려주세요....
CodePoint = (Asc(strSrc) - Val("&HA1A1"))
CodePoint = CodePoint * 2 + 4
If CodePoint > 0 Then
TransCode = Chr(mKSC2VSTbl(CodePoint)) & Chr(mKSC2VSTbl(CodePoint + 1))
End If
Else
CodePoint = ((Asc(Mid(strSrc, 1, 1)) - Asc("!")) * 256 + (Asc(Mid(strSrc, 2, 1)) - Asc("!")))
CodePoint = CodePoint * 2 + 4
If CodePoint > 0 Then
TransCode = Chr(Val("&H" + Hex(mVS2KSCTbl(CodePoint)) + Hex(mVS2KSCTbl(CodePoint + 1))))
End If
End If
CodePoint = (Asc(strSrc) - Val("&HA1A1"))
VB에서는 Val("&HA1A1")의 값과
DELPHI의 StrToInt("$A1A1")의 값이 다르게 나오는 등 ... 나름대로 변환을 해봤는데.
결과 값이 다르게 나오네요.. 방법좀 알려주세요....
0
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 왕초자
- •
- 2000.10.21 00:14
- 4 COMMENTS
- /
- 0 LIKES
-
윤종필•2000.10.21 03:54질문의 의도를 정확히 모르겠군요. 원하는 내용이 만약 에디트 박스에 입력된 자료를 뿌려주는 것이라면 ... -
왕초자•2000.10.21 17:47윤종필 wrote: > 질문의 의도를 정확히 모르겠군요. > 원하는 내용이 만약 에디트 박스에 입력된 자료를 ...
-
윤종필•2000.10.21 18:39질문에 대한 답이 맞는지 모르겠습니다. [이전] 버튼의 OnClick 이벤트에 Table1.Prior; [다음] 버튼의...
-
왕초자•2000.10.21 20:00윤종필 wrote: > 질문에 대한 답이 맞는지 모르겠습니다. > > [이전] 버튼의 OnClick 이벤트에 Table1....
-
- coolling
- 2000.10.21 00:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2000.10.20 23:47
- 0 COMMENTS
- /
- 0 LIKES
-
- delpo
- •
- 2000.10.20 23:40
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2000.10.20 23:47안녕하세염.... %에대한 문의 맞죠.... Sql에대하여..조금 공부를 하시면 자동으로 알게 되겠지만......
-
- 향기
- 2000.10.20 23:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보개발자
- 2000.10.20 23:23
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 빈거울
- 2000.10.20 22:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보입니다.
- 2000.10.20 21:46
- 0 COMMENTS
- /
- 0 LIKES
-
- won
- •
- 2000.10.20 21:41
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•2000.10.20 23:27Union을 사용하세요.. select 일자,sum(출금액) 총출금액 from TB_출금 group by 일자 union se...
-
공성환•2000.10.20 22:57델파이에서 제공하는 스트링그리드,디비그리드에는 없는걸로 알고 있습니다. 외부콤포넌트를 설치하시면 ...
-
- 임지희
- •
- 2000.10.20 20:14
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.10.21 03:00안녕하세요..영원한 델초보 어린왕자입니다.. 이렇게 하면 아마 될껄요.. var tmpDate:TDate; begi...
-
plan0611•2000.10.20 21:10간단한 방법으로는 날짜format를 바꿔주는 방법이 있읍니다. formatDateTime('yyyy/mm/dd', '2000-10-20...
-
- 우희연
- 2000.10.20 20:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 한하눌
- 2000.10.20 19:04
- 0 COMMENTS
- /
- 0 LIKES
If KSC2VS Then CodePoint = (Asc(strSrc) - Val("&HA1A1")) CodePoint = CodePoint * 2 + 4 If CodePoint > 0 Then TransCode = Chr(mKSC2VSTbl(CodePoint)) & Chr(mKSC2VSTbl(CodePoint + 1)) End If Else CodePoint = ((Asc(Mid(strSrc...
-
- 박일용
- •
- 2000.10.20 19:01
- 1 COMMENTS
- /
- 0 LIKES
-
silver•2000.10.20 21:43박일용 wrote: > 서버소켓과 클라이언트소켓을 이용해서 프로그램을 하나씩 만들었습니다. > 서버에서는 ...
-
- 김기태
- 2000.10.20 18:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 김배원
- 2000.10.20 17:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이정한
- •
- 2000.10.20 10:42
- 2 COMMENTS
- /
- 0 LIKES
-
양우•2000.10.20 18:58질문처럼 C.num, O.날짜, C.이름, C.품명별로 Group by를 해서 금액의 합을 구하시려면 Group by 절에서 ...
-
우희연•2000.10.20 18:16이정한 wrote: > Close; > SQL.Clear; > SQL.Add('SELECT C.NUM, O.날짜, O.증명, C.이름, C.품명,'); ...
-
- 김수정
- •
- 2000.10.20 09:40
- 2 COMMENTS
- /
- 0 LIKES
-
양우•2000.10.20 19:01마지막에 Order by 절을 추가해야 되는데요 필드명을 쓰는게 아니라 필드의 순서를 기술해 주면 됩니다. ...
-
plan0611•2000.10.20 17:42간단합니다. ORDER BY 절만 추가하시면 됩니다. SELECT ... UNION (또는 UNION ALL) SELECT .......
-
- 이연희
- 2000.10.21 03:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 문창기
- 2000.10.20 07:27
- 0 COMMENTS
- /
- 0 LIKES
