コード: 全て選択
#N88BASIC
Type TEST
tesuto1 As Long
tesuto2[7] As Byte
End Type
Dim testarr As **TEST
Dim dummy As TEST
Dim testptr As *TEST
testarr=calloc(3*Len(testptr))
testarr[0]=calloc(Len(dummy))
testarr[1]=calloc(Len(dummy))
testarr[2]=calloc(Len(dummy))
(testarr[0])->tesuto1=123
lstrcpy((testarr[0])->tesuto2,"test")
(testarr[1])->tesuto1=98765
lstrcpy((testarr[1])->tesuto2,"zikken")
(testarr[2])->tesuto1=45654
lstrcpy((testarr[2])->tesuto2,"dounaru")
Print (testarr[0])->tesuto1
Print MakeStr((testarr[0])->tesuto2)
Print (testarr[1])->tesuto1
Print MakeStr((testarr[1])->tesuto2)
Print (testarr[2])->tesuto1
Print MakeStr((testarr[2])->tesuto2)
free(testarr[0])
free(testarr[1])
free(testarr[2])
free(testarr)コード: 全て選択
#N88BASIC
Type TEST
tesuto1 As Long
tesuto2[7] As Byte
End Type
Dim testarr As *TEST
Dim dummy As TEST
testarr=calloc(3*Len(dummy))
(testarr[0])->tesuto1=123
lstrcpy((testarr[0])->tesuto2,"test")
(testarr[1])->tesuto1=98765
lstrcpy((testarr[1])->tesuto2,"zikken")
(testarr[2])->tesuto1=45654
lstrcpy((testarr[2])->tesuto2,"dounaru")
Print (testarr[0])->tesuto1
Print MakeStr((testarr[0])->tesuto2)
Print (testarr[1])->tesuto1
Print MakeStr((testarr[1])->tesuto2)
Print (testarr[2])->tesuto1
Print MakeStr((testarr[2])->tesuto2)
free(testarr)コード: 全て選択
#N88BASIC
Type TEST
tesuto1 As Long
tesuto2[7] As Byte
End Type
Dim testarr As *TEST
testarr = calloc(3 * SizeOf(TEST))
testarr[0].tesuto1=1
lstrcpy(testarr[0].tesuto2, "test1")
testarr[1].tesuto1=2
lstrcpy(testarr[1].tesuto2, "test2")
testarr[2].tesuto1=3
lstrcpy(testarr[2].tesuto2, "test3")
Dim i As Long
For i=0 To 2
Print testarr.tesuto1, MakeStr(testarr.tesuto2)
Next