ab.com コミュニティ

コード: 全て選択

Class TEST
Public
    b As Long
End Class

Dim a As *TEST
Dim i As Long

a = New[ELM(4)] TEST
For i = 0 To 3
    a.b = 1
Next
Delete a

コード: 全て選択

Class TestPtrArray
	Ptr As *VoidPtr
	Size As DWord
Public
	Function At(n As DWord) As *Test
		If n <= Size Then
			At = Ptr[n]
		End If
	End Function
/* 省略 */
End Class

Dim a As TestPtrArray
Dim i As Long

a.ArrayAlloc(3)
For i = 0 To 3
	a.ObjectAlloc(i)
		a.At(i)->b = 1 '「閉じカッコ ")" の後に不正な文字が含まれています」というエラー
'	a.ObjectFree(i)
Next
'a.ArrayFree()

コード: 全て選択

Dim test[100] As *TEST

コード: 全て選択

Class TEST
Public
    b As Long
End Class

Dim a As **TEST
Dim i As Long

a = malloc(4 * 4)
For i = 0 To 3
    a = New test()
    a->b = 1
    Delete a
Next
free(a)