파워빌더.DataWindow - 내부 Object를 배열에 담기

농부지기 2017. 1. 26. 23:06

[ 파워빌더.DataWindow - 내부 Object를 배열에 담기 ]

☞

dw 내의 모든 오브젝트들의 이름을 string 배열에 넣어 주는 함수 입니다..

/* f_GetObjects( dwWhich, ref sReturn[] ) */

Long lFind
String sCol, sObjects

sObjects = dwWhich.Describe('DataWindow.Objects')
sObjects = sObjects + '~t'

DO
lFind = Pos(sObjects, '~t')

IF lFind > 0 THEN
sCol = Left(sObjects, lFind - 1)

sReturn[UpperBound(sReturn[]) + 1] = sCol

sObjects = Mid(sObjects, lFind + 1)
END IF
LOOP WHILE lFind > 0