Copying array elements - GameCreators Forum

Author

Message

pdq

19

Years of Service

User Offline

Joined: 20th Jul 2006

Location:

Posted: 16th Aug 2013 19:14 Edited at: 16th Aug 2013 19:17

Link

Is there a function "out there" that would enable me to copy the contents of one array element (including multiple fields) to another. For example:

+ Code Snippet

type tObject
   file$
   id
   x#
   z#
endtype
dim objects(2) as tObject

`pseudo code, something like:
objects(2) = objects(1)

I am trying to avoid this:

+ Code Snippet

objects(2).file$ = objects(1).file$
objects(2).id = objects(1).id
objects(2).x# = objects(1).x#
objects(2).z# = objects(1).z#

I was using Ian's Matrix ArrayPtr and peek/poke functions; however, dealing with multiple string fields has been a pain.

Thanks

Back to top

Profile PM

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 16th Aug 2013 20:02

Link

Actually, you can just copy an array as in your first snippet.

+ Code Snippet

type tObject
   file as string
   id as integer
   x as float
   z as float
endtype

dim objects(1) as tObject

objects(0).file = "image.bmp"
objects(0).id = 1
objects(0).x = 10
objects(0).z = 100

objects(1)=objects(0)

print objects(1).file
print objects(1).id
print objects(1).x
print objects(1).z

wait key

Back to top

Profile PM Email

pdq

19

Years of Service

User Offline

Joined: 20th Jul 2006

Location:

Posted: 16th Aug 2013 23:53

Link

Sorry, I meant to change the situation a bit.

What about this?

+ Code Snippet

type tObject
   file$
   id
   x#
   z#
endtype
dim player(2) as tObject
dim enemy(2) as tObject

`pseudo code, something like:
player(2) = enemy(1)

I get an error message when I try this, yet both arrays are the same type.

Back to top

Profile PM

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 17th Aug 2013 00:02 Edited at: 17th Aug 2013 00:21

Link

That works as well.

+ Code Snippet

type tObject
   file as string
   id as integer
   x as float
   z as float
endtype

dim player(1) as tObject
dim enemy(1) as tObject

player(0).file = "image.bmp"
player(0).id = 1
player(0).x = 10
player(0).z = 100

enemy(0)=player(0)

print enemy(0).file
print enemy(0).id
print enemy(0).x
print enemy(0).z

wait key

Can't say why it's giving you an error. I checked it on all versions from 7.4 up to the 7.7 beta

Back to top

Profile PM Email

pdq

19

Years of Service

User Offline

Joined: 20th Jul 2006

Location:

Posted: 17th Aug 2013 02:00

Link

I found my error. I defined the udt in another source file.

Thanks again.

Back to top

Profile PM

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 17th Aug 2013 02:44 Edited at: 17th Aug 2013 02:52

Link

You are welcome. If the other source file is included in the project and you either dimension the array in your main source file or call a subroutine in the other file to dimension the arrays, it will work. See download.

The problems not where you define the udt but where you dimension the udt arrays.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Copying array elements