Returns a string of blank spaces
FUNC MAIN LOCAL cBigString LOCAL cFirst LOCAL cString := Space(20) //Create an characte memory variable // with lenght 20 ? len(cString) // 20 cBigString:=space(100000) // create a memory variable with 100000 // blank spaces ? len(cBigString) Use Tests New cFirst:= makeempty(1) ? len(cFirst) Return Nil Function MakeEmpty(xField) LOCAL nRecord LOCAL xRetValue If !empty(alias()) nRecord:=recno() dbgoto(0) if valtype(xField)=="C" xField:= ascan(dbstruct(),{|aFields| aFields[1]==upper(xfield)}) else default xField to 0 if xField < 1 .or. xField>fcount() xfield:=0 endif endif if !(xfield ==0) xRetvalue:=fieldget(xfield) endif dbgoto(nrecord) endif return( xRetvalue) Tests See examples