아래는 VB용으로 된 펑션입니다..

이 부분을 델파이용으로 변경을 할 수 가 없군요(왜냐!!! 잘 모르니까(VB를))

넘 창피하지만 여러 고수님들께 이렇게 도움을 청합니다...

부디 이 초보에게 기쁨과 환희를 주십시요...



Public Function ParseMultistring( _

ByRef strMultistring As String, _

ByRef intReaderCount As Integer _

) As Variant



Dim strCurrent As String

Dim strWorking As String

Dim arrReaderNames() As String

Dim lngNullPosition As Long



strCurrent = ""

strWorking = strMultistring

intReaderCount = 0

lngNullPosition = InStr(strWorking, vbNullChar)



While (lngNullPosition > 1)

ReDim Preserve arrReaderNames(intReaderCount)

strCurrent = Left(strWorking, lngNullPosition - 1)

arrReaderNames(intReaderCount) = strCurrent

strWorking = Right(strWorking, Len(strWorking) - (lngNullPosition + 1) + 1)

lngNullPosition = InStr(strWorking, vbNullChar)

intReaderCount = intReaderCount + 1

Wend



ParseMultistring = arrReaderNames



End Function