Q&A

  • VB 소스를 delphi 소스 전환 하는데 어려움이 있어서요..?
아래 함수는 vb 함수로 바이트 형 값을
스트링형으로 바꾸는 함수 입니다..
그리고 바로 아래는 일부를 발취한 것입니다
-    rName = rName & Chr(Val(strTemp)) 소스의 "val" vb 함수의
기능이 델파이에도 있습니까?
없으면 다른 방법이 있느지요??

즐프 하세요!!
------------------------------- 아 래---------------------------------
Public Function Fu_Read_Name(ByRef szTemp1() As Byte, ByVal nLen As Integer) As String
Dim i As Integer
Dim strTemp As String
Dim rName As String
Dim szTemp As String

For i = 0 To nLen
    If szTemp1(i) >= &H80 Then
        strTemp = "&H" & Hex(szTemp1(i))
        i = i + 1
        strTemp = strTemp & Hex(szTemp1(i))
        rName = rName & Chr(Val(strTemp))
    ElseIf szTemp1(i) = &H0 Then
        Exit For
    Else
        rName = rName & Chr(szTemp1(i))
    End If
Next i

Fu_Read_Name = rName

End Function
----------------------------------------------------------------------
0  COMMENTS