Having unbound Arrays of custom types

thedesolatesoul · Aug 18, 2011

I have a type declared:

B4X:

   Type TaskItemType ( _
      TaskType As Int, _ 
      ScheduledTime As Long, _
      DestPath As String, _    
      SourcePath As String, _        
)
Dim TaskItems() As TaskItemType

But when I try to initialise it from another code module

B4X:

Sub CreateTask(TaskType As Int, ScheduledTime As Long, SourcePath As String, DestPath As String, Filter As String)
   dpservice.TaskItems(dpservice.TotalQueItems).Initialize
   dpservice.TaskItems(dpservice.TotalQueItems).TaskType = TaskType
   dpservice.TaskItems(dpservice.TotalQueItems).ScheduledTime  = ScheduledTime 
   dpservice.TaskItems(dpservice.TotalQueItems).SourcePath = sourcepath
   dpservice.TaskItems(dpservice.TotalQueItems).DestPath  = DestPath

End Sub

I get an ArrayOutofBounds exception. Is it possible to do this at all?

Erel · Aug 18, 2011

B4X:

Dim TaskItems() As TaskItemType

This code creates an empty array. You will need to call Dim again with the number of items before you can use it.

You can use a List instead. It will allow you to add as many items as needed.

B4X:

Dim TI as TaskItemType
TI = List1.Get(i) 'cast the object to TaskItemType

thedesolatesoul · Aug 18, 2011

That sounds like a better idea. I should use a list.
Thanks!

Having unbound Arrays of custom types

thedesolatesoul

Expert

Erel

B4X founder

thedesolatesoul

Expert

Having unbound Arrays of custom types

thedesolatesoul

Expert

Erel

B4X founder

thedesolatesoul

Expert

Privacy & Transparency

Privacy & Transparency