How do I get past this "array" problem 
Author Message
 How do I get past this "array" problem

I need to have a TYPE with an "array" which is not fixed.
And if this can't be done, does anyone have a good work around?

#COMPILE EXE

TYPE Test
    Test1 AS INTEGER
    Test2 AS EXT
    Test3(1 TO 1) AS DOUBLE  '<---I don't want a fixed array
END TYPE

FUNCTION WINMAIN (BYVAL CurInst AS LONG, _
                  BYVAL PrvInst AS LONG, _
                  CmdLine AS ASCIIZ PTR, _
                  BYVAL CmdShow AS LONG) EXPORT AS LONG

    DIM TestType AS Test
    DIM CopyArray() AS DOUBLE
    DIM Records AS LONG
    LOCAL u1 AS LONG

    'Records = RecordCount()
    Records = 1203 'For example

    REDIM CopyArray(1 TO Records) AS DOUBLE
    'Data is inserted into CopyArray()

    TestType.Test1 = 1
    TestType.Test2 = 2.1

    u1 = UBOUND(CopyArray)
    REDIM TestType.Test3(1 TO u1) AS DOUBLE '<- no worky
    MAT TestType.Test3() = CopyArray()

END FUNCTION



Sun, 23 Nov 2003 09:36:30 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. string.join(["Tk 4.2p2", "Python 1.4", "Win32", "free"], "for")

2. "getting" APL

3. BEGIN{want[]={"s1o", "s2o", "s2q", "s3q"}

4. Getting rid of "newlines \n"

5. Getting "Open With" Dialog

6. "Getting the NetWare User Name"

7. Getting "Link Error:Too many files"

8. "gets" help needed

9. Re "gets" help needed

10. Help: Case of the Wandering "GETS"

11. ANYONE ELSE GETTING "UNKNOWN" NEWS POSTINGS

12. Im getting a "no source error"

 

 
Powered by phpBB® Forum Software