This is an example program.
---------------------------------------------
Sub Process_Globals
Type TPtData(Name As String, ID As Int, Male As Boolean)
End Sub
Sub Globals
Dim Button1 As Button
Dim Button2 As Button
Dim Button3 As Button
Dim ListView1 As ListView
Dim PtTemp As TPtData
Dim PtData(10) As TPtData
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("ObjectTest")
Initialize
End Sub
Sub Initialize
Dim i As Int
For i=0 To 9
PtData(i).Initialize
Next
PtTemp.Initialize
ListView1.Clear
End Sub
Sub Button3_Click
Activity.Finish
End Sub
Sub Button1_Click
Dim i As Int
For i=0 To 9
PtData(i).ID=i
PtData(i).Name="Name #"&i
Next
ListNew
End Sub
Sub Button2_Click
PtTemp=PtData(0)
PtData(5)=PtTemp
PtTemp.Name="Temp"
ListNew
End Sub
Sub ListNew
ListView1.Clear
Dim i As Int
Dim s As String
For i=0 To 9
s=PtData(i).Name & " ID:" & PtData(i).ID
ListView1.AddSingleLine(s)
Next
End Sub
-----------------------------------------
Please push Button1
And When I push Button2, I expect to change from "Name #5 ID:5" to "Name #0 ID:0". But in fact, "Name #0 ID:0" and "Name #5 ID:5" change to "Temp ID:0" !
I think, in structure's assignment, one's value substitute to another by reference.
But, I want to substitute by value.
Please help me.:sign0085: