LOCAL obj
obj = CreateObject ("DynaString")
 
obj.setValue ("Test String")
? obj.getAddr(), "|", obj.getAllocSize(), "|", obj.getValue()
 
obj.setValue (Repli("*", 50))
? obj.getAddr(), "|", obj.getAllocSize(), "|", obj.getValue()
 
obj.setValue (Repli(Chr(0), 16384))
? obj.getAddr(), "|", obj.getAllocSize()
 
RELEASE obj
 
DEFINE CLASS DynaString As Custom
    PROTECTED hMem, strValue
 
PROCEDURE  Init (lcString)
    THIS.hMem = 0
    THIS.strValue = ""
    THIS.setValue (lcString)
 
PROCEDURE  Destroy
    THIS.ReleaseString
 
FUNCTION   getAddr
RETURN  THIS.hMem
 
FUNCTION   getValue
RETURN  THIS.strValue
 
FUNCTION  getAllocSize
    DECLARE INTEGER GlobalSize IN kernel32 INTEGER hMem
RETURN Iif(THIS.hMem=0, 0, GlobalSize(THIS.hMem))
 
PROCEDURE  setValue (lcString)
    IF TYPE("lcString")<>"C"
        RETURN
    ENDIF
#DEFINE GMEM_FIXED   0 
    DECLARE INTEGER GlobalAlloc IN kernel32;
        INTEGER wFlags, INTEGER dwBytes
 
    THIS.ReleaseString
    THIS.strValue = lcString
    THIS.hMem = GlobalAlloc (GMEM_FIXED, Len(THIS.strValue))
ENDPROC
 
PROCEDURE  ReleaseString
    IF THIS.hMem <> 0
        DECLARE INTEGER GlobalFree IN kernel32 INTEGER hMem
        = GlobalFree (THIS.hMem)
        THIS.hMem = 0
        THIS.strValue = ""
    ENDIF
ENDDEFINE