Function A2MEMO Parameters lcArray Local lcLagre lcResult='' #Define CRLF Chr(13)+Chr(10) For Each lcValue In (lcArray) lcResult=lcResult + Transform(lcValue) + CRLF Endfor If Right(lcResult,2)=CRLF lcResult=Substr(lcResult,1,Len(lcResult)-2) Endif Return lcResult
?Adir(temp,'p:\data\*.dbf') ?a2memo('temp')>Is there a relatively simple way to take the contents of an array and store them in a Memo (or some other type of) field?