[ 파워빌더.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

Posted by 농부지기
,