A list of types

[yo3ggx]

Hi,

I have the following example code:

Sub Process_Globals
    Dim lstServers as list
    Type Srvdata(Name as String, Url as String)
End Sub


Dim srv as Srvdata
srv.Initialize
lstServers.Initialize
srv.Name = "Server1"
srv.Url = "http://a1.b.com"
lstServers.add(srv)

srv.Name = "Server2"
srv.Url = "http://a2.b.com"
lstServers.add(srv)

I end up with a list containing only the second Type for two times.

What I'm doing wrong?

Thank you,
Dan

 

[Informatix]

Hi,

I have the following example code:

Sub Process_Globals
    Dim lstServers as list
    Type Srvdata(Name as String, Url as String)
End Sub


Dim srv as Srvdata
srv.Initialize
lstServers.Initialize
srv.Name = "Server1"
srv.Url = "http://a1.b.com"
lstServers.add(srv)

srv.Name = "Server2"
srv.Url = "http://a2.b.com"
lstServers.add(srv)

I end up with a list containing only the second Type for two times.

What I'm doing wrong?

Thank you,
Dan

Add:

Dim srv as Srvdata
srv.Initialize

before the second assignement to create a second instance of the type SrvData. If you don't do that, all references to srv are pointing to the same object in memory.

 

[yo3ggx]

Great!

Now is working as expected.
Thanks a lot.

Dan