아래 함수는 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
----------------------------------------------------------------------