SELECT num, myfunc(num) FROM table1 GROUP BY num

FUNCTION myfunc
LPARAMETERS tnNum
LOCAL lcString as String 
LOCAL i as Integer 
LOCAL ARRAY laArray[ 1 ]
lcString=''
SELECT text FROM table1 INTO ARRAY laArray WHERE num=tnNum
FOR i= 1  TO ALEN(laArray)
	lcString=lcString+laArray[i]+CHR( 32 )
ENDFOR 
RETURN ALLTRIM(lcString)
ENDFUNC 

CLEAR 
LOCAL i as Integer 
LOCAL j as Integer 
LOCAL n as Integer 
LOCAL lnSec as Decimal  
CREATE CURSOR table1 (num i, text c( 10 ))
INDEX on num TAG num
=RAND(- 1 )
FOR i= 1  TO  1000 
	n=INT(RAND()* 5 )+ 1 
	FOR j= 1  TO n
		INSERT INTO table1 VALUES (i,SYS( 2015 ))
	ENDFOR   
ENDFOR 

lnSec=SECONDS()
SELECT num, myfunc(num) FROM table1 GROUP BY num INTO CURSOR result
?SECONDS()-lnSec
SELECT result
BROWSE

lnSec=SECONDS()
Select distinct num , space( 254 ) as text From table1 into cursor result1 READWRITE 
index on num tag num
select table1
set relation to num into result1
replace all text with rtrim(text)+' '+table1.text IN result1
?SECONDS()-lnSec
SELECT result1
BROWSE

lnSec=SECONDS()
CREATE CURSOR result (num I, text M)
select Table1
SET ORDER TO num
SCAN
	IF result.num=Table1.num
		select result
		REPLACE text WITH ' '+Table1.text ADDITIVE
	ELSE
		INSERT INTO result (num,text) VALUES (Table1.num,Table1.text)
	ENDIF
ENDSCAN
?SECONDS()-lnSec
SELECT result
BROWSE

FUNCTION myfunc
LPARAMETERS tnNum
LOCAL lcString as String 
lcString=''
SCAN FOR num=tnNum
	lcString=lcString+text+' '
ENDSCAN 
RETURN ALLTRIM(lcString)
ENDFUNC