XProfan

Proc ?_Value

    Déclarer val&

    With ?_TableMap#

        Si .RowPos& > 0 And .RowPos& <= .Rows& And .ColPos& > 0 And .ColPos& <= .Cols&

            val& = LONG(.Table&, (.ColPos& - 1 + (.RowPos& * .Cols&)) * 4)

            Si val&

                //?_UTF8ToAscii(val&)
                Retour string$(val&, 0)

            EndIf

        EndIf

    EndWith

    Retour »

ENDPROC