Sv1.data=Merge(Sv1.data,array as float (20))
Sv1.data=Merge(Sv1.data,array as float (79,12.9))
B4X:
private Sub Merge(Array1() As Float, Array2() As Float) As Object
Private BC As ByteConverter
Dim FloatArray(Array1.Length + Array2.Length) As Float
BC.ArrayCopy(Array1,0,FloatArray,0,Array1.Length)
BC.ArrayCopy(Array2,0,FloatArray,Array1.Length,Array2.Length)
Return FloatArray
End Sub
BufferFloat=Merge(BufferByte,array as float (20))
BufferFloat=Merge(BufferByte,array as float (79,12.9))
B4X:
private Sub Merge(Array1() As Float, Array2() As Float) As Object
Private BC As ByteConverter
Dim FloatArray(Array1.Length + Array2.Length) As Float
BC.ArrayCopy(Array1,0,FloatArray,0,Array1.Length)
BC.ArrayCopy(Array2,0,FloatArray,Array1.Length,Array2.Length)
Return FloatArray
End Sub
Dim l As List
l.Initialize
l.Add(15)
l.Add(16.5)
l.Add(20)
Dim arr(l.Size) As Float
For i = 0 To l.Size-1
arr(i) = l.Get(i)
Next
sv1.FillType = sv1.FT_NONE
sv1.Data = arr
I answered your questions by correcting the example to fit your case (post#3).
I thought you could guess the correspondence.
Also I added another method:
B4X:
Sv1.data=Merge(Sv1.data,array as float (20))
Sv1.data=Merge(Sv1.data,array as float (79,12.9))
B4X:
private Sub Merge(Array1() As Float, Array2() As Float) As Object
Dim FloatArray(Array1.Length + Array2.Length) As Float
For I=0 To Array1.length-1
FloatArray(I)=Array1(I)
Next
For I=0 To Array2.length-1
FloatArray(Array1.Length+I)=Array1(I)
Next
Return FloatArray
End Sub