안녕하세요.
요즘 통신 테스트 하고 있는데....업체로 부터 받은 샘플이 델 파이가 아닌....VB네요.
델파이로 된 샘플은 구하기가 영...힘드네요.책자도 된 메뉴얼도 없다고 하고 일단...각설하고 봐가면서 하나하나
풀러가고 있습니다.제가..델파이라두 정말 초...고수라면 쉽게 풀텐데 그것도 아니라..형식적인것인데 어떻게 변환
해야 할지....알 수가 없습니다. 조금만 가리쳐 주시면 감사하겠습니다.
제가 중간중간 의구심나는 부분을 적어 놓았습니다.

Private Function DecText2RefData(Buffer As String) As String
Dim i As Integer
Dim ValueData As Long
Dim WorkBuffer As String
 
  DecText2RefData = ""
 
  i = 1
  Do
    If Mid(Buffer, i, 1) = "," Then
      i = i + 1
    Else
      WorkBuffer = Mid(Buffer, i, Len(Buffer) - i + 1)

     '[Mid]라는 것은 ','을 구분자로 생각하고 짜르는거 같은데 Pos()쓰면 될거 같구요

      'Buffer라는 문자열에는 '1,23,56,122,'같은 텍스트속성을받습니다.
                                               
      ValueData = Val(WorkBuffer)               '10진수 문자열을 정수화 여긴 intTostr()을 사용하면 되고요
      DecText2RefData = DecText2RefData & ChrB((ValueData And &HFF00) / 256) & ChrB(ValueData And &HFF)
                                                                  '쓰기용 버퍼에 추가
      '여기서 ChrB라는 함수는 찾아보니.[chrcode of byte]로 변환하는것이라고하는데...뭘 대체해야 하는지요
      'chr하고 chrB하고 뭐가 다르다는것인지..왜이렇게 어렵죠
      '또 [And &HFF00]이라는 것이 있는데 흠냐...이건 뭘뜻하고 어떻게 바꾸어써야 할지..모르겠습니다.

      i = InStr(i, Buffer, ",")

      '[inStr]는 문자열을 시프트 시키는 거라는데...휴.....

    End If
  Loop Until (i >= Len(Buffer) Or i = 0)
End Function