Announcement

Collapse
No announcement yet.

Array question

Collapse
X
Collapse
 
  • Page of 1
  • Filter
  • Time
  • Show
Clear All
new posts
Previous template Next
    #1

    Array question

    I've used multi-dimensional arrays in other languages etc before but really haven't used one in PB yet...

    I'd like to say something like this:

    g_Array(long value,string value)


    Can an array hold both types?

    ie
    g_Array(1,"place one")
    g_Array(2,"Place two")


    Thanks,

    ps smilies are now copyrighted, see this link: http://www.foxnews.com/foxlife/031301/frowny.sml

    Scott

    ------------------
    Scott
    Scott Turchin
    MCSE, MCP+I
    http://www.tngbbs.com
    ----------------------
    True Karate-do is this: that in daily life, one's mind and body be trained and developed in a spirit of humility; and that in critical times, one be devoted utterly to the cause of justice. -Gichin Funakoshi
    Tags: None
    #2
    Arrays can only have a single data type. You would need a one-dimensional array of user-defined types to do that. The elements of various data types would be the "second dimension" of your array.

    Code:
    TYPE MyType
    lLong   AS LONG
    sString AS STRING
END TYPE
 
DIM MyArray(10) AS MyType
 
MyArray(1).lLong = 1
MyArray(1).sString = "Text"
    -- Eric

    ------------------
    Perfect Sync Development Tools
    Perfect Sync Web Site
    Contact Us: mailto:[email protected][email protected]</A>

    [This message has been edited by Eric Pearson (edited March 13, 2001).]
    "Not my circus, not my monkeys."

    Comment

      #3
      Will this work with a Listbox?
      I'm still working on it but it's returning errors that it does not see my type, despite thatit's global and is dim'd....
      And then the Listbox expects a Dynamic string...


      Scott

      ------------------
      Scott
      Scott Turchin
      MCSE, MCP+I
      http://www.tngbbs.com
      ----------------------
      True Karate-do is this: that in daily life, one's mind and body be trained and developed in a spirit of humility; and that in critical times, one be devoted utterly to the cause of justice. -Gichin Funakoshi

      Comment

        #4
        I'm running into an issue here, perhaps you can help?


        Code:
        Type BrowserInfo
     hWnd As Long
     Address As String * 255
End Type

Global bi           As BrowserInfo  


'OK That works so far, but this fails with Def Type required:
    Incr g_UrlIndex
    bi(g_UrlIndex).hWnd = hWndChild
    bi(g_UrlIndex).Address = Left$(wintext, wer)

It's global and it's dimmed in Winmain as such:
Dim bi(1 To %MAX_BROWSERS) As BrowserInfo
        ------------------
        Scott
        Scott Turchin
        MCSE, MCP+I
        http://www.tngbbs.com
        ----------------------
        True Karate-do is this: that in daily life, one's mind and body be trained and developed in a spirit of humility; and that in critical times, one be devoted utterly to the cause of justice. -Gichin Funakoshi

        Comment

          #5
          You need parens to tell the compiler it's an array...

          Code:
          Global bi()          As BrowserInfo
          -- Eric


          ------------------
          Perfect Sync Development Tools
          Perfect Sync Web Site
          Contact Us: mailto:[email protected][email protected]</A>



          [This message has been edited by Eric Pearson (edited March 13, 2001).]
          "Not my circus, not my monkeys."

          Comment

            #6
            Ah! thanks!
            That problem licked we now tackle Mr Listbox...he's not very happy with this statement:

            Control Add ListBox,hDlg,%IDMAIN_LISTBOX1,bi().Address,5,15,275,120

            Dynamic string expected....

            Scott

            ------------------
            Scott
            Scott Turchin
            MCSE, MCP+I
            http://www.tngbbs.com
            ----------------------
            True Karate-do is this: that in daily life, one's mind and body be trained and developed in a spirit of humility; and that in critical times, one be devoted utterly to the cause of justice. -Gichin Funakoshi

            Comment

              #7
              Try adding BYCOPY.

              By the way, to avoid hard-to-find mistakes like that I always use this form...

              Code:
              DIM bi() AS GLOBAL BrowserInfo
              I tend to avoid the "GLOBAL something AS datatype" syntax. DIM your global arrays using AS GLOBAL in your WinMain function, and it accomplishes the same thing with fewer opportunities for errors (IMO).

              -- Eric

              ------------------
              Perfect Sync Development Tools
              Perfect Sync Web Site
              Contact Us: mailto:[email protected][email protected]</A>

              [This message has been edited by Eric Pearson (edited March 13, 2001).]
              "Not my circus, not my monkeys."

              Comment

                #8
                Very cool, I did not know you could do that!


                Thanks!

                Scott

                ------------------
                Scott
                Scott Turchin
                MCSE, MCP+I
                http://www.tngbbs.com
                ----------------------
                True Karate-do is this: that in daily life, one's mind and body be trained and developed in a spirit of humility; and that in critical times, one be devoted utterly to the cause of justice. -Gichin Funakoshi

                Comment

                  #9
                  Scott,

                  you might want to add a zero byte to the UDT, just in case Mr. Listbox expects ASCIIZ strings and the zero byte happens to get dropped somehow...

                  Code:
                  Type BrowserInfo
  hWnd As Long
  Address As String * 255
  Dummy As Byte
End Type
                  Peter


                  ------------------
                  [email protected]
                  [email protected]

                  Comment

                    #10
                    Added a zero byte dummy, same effect:


                    Control Add ListBox,hDlg,%IDMAIN_LISTBOX1,bi().Address,5,15,275,120

                    Error 535 in H:\PBDLL\PITBULL\PITBULL.BAS(260:43): Dynamic String Variable Expected
                    Line 260: Control Add ListBox,hDlg,%IDMAIN_LISTBOX1,bi().Address,5,15,275,120

                    Doesn't look like I'm going to get around this without using 2 separate arrays....

                    Any ideas?


                    Scott

                    ------------------
                    Scott
                    Scott Turchin
                    MCSE, MCP+I
                    http://www.tngbbs.com
                    ----------------------
                    True Karate-do is this: that in daily life, one's mind and body be trained and developed in a spirit of humility; and that in critical times, one be devoted utterly to the cause of justice. -Gichin Funakoshi

                    Comment

                      #11
                      The list box expects an array of dynamic strings, not an array of user-defined elements.
                      Yes, you will need two arrays here.

                      ------------------
                      Tom Hanlin
                      PowerBASIC Staff

                      Comment

                        #12
                        Scott,

                        I am not sure how DDT works but you may be able to create the listbox
                        with an empty dynamic string array and then, using LB_ADDSTRING,
                        populate the box from your UDT ... you would have to loop thru and
                        maybe use (RTRIM$(bi(count).Address)+ CHR$(0)) to convert each item to
                        an asciiz string or whatever is required ...

                        Some combination of that should work and let you keep your UDT
                        without using a second array.

                        Mike

                        ------------------

                        Comment

                        Previous template Next
                        Working...
                        X
                        😀
                        🥰
                        🤢
                        😎
                        😡
                        👍
                        👎

                        We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.

                        By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.

                        I Agree