Xailer & OZ Software

Hola ¿Como puedo saber si una Clase, Función o Prg esta linkada/o a mi
aplicación ?
Saludos y Gracias
Pablo Herranz

Hola Pablo encantado de poder ayudarte, esta función la sigo portando
desde los tiempos del Clipper 5.0 y sigue andando en Xailer. Que te
aproveche.
****** RETORNA SI UNA FUNCION ESTA LINKADA O NO DENTRO DEL PROGRAMA ******
Function IsLinked(cFunction)
Local L1:={},L2,L3,L4,L5:=.F.

cFunction:=IF(AT("(",cFunction)==0,Alltrim(cFunction)+'()',Alltrim(cFunction))
Do While ((L4:=AT("(",cFunction))>0)
AADD(L1,LEFT(cFunction,L4)+")")
cFunction:=SUBSTR(cFunction,L4+1)
L2:=AT(" ",cFunction)
L3:=AT(",",cFunction)
Do While (L3>0 .AND. L3<L4 .OR. L2>0 .AND. L2<L4)

cFunction:=IF(L3>0,SUBSTR(cFunction,L3+1),IF(L2>0,SUBSTR(cFunction,L2+1),cFunction))
L2:=AT(" ",cFunction)
L3:=AT(",",cFunction)
EndDo
EndDo
L5:=ASCAN(L1,{|_1|TYPE(_1)=="U"})=0
Return L5
Salu2.