ab.com コミュニティ

konisiさん　ありがとうございました。＾＾

For i=0 To 100-1
    list=calloc( ... )
Next

For i=0 To 100-1
    free(list)
Next

'注：エラー処理を書いてない。
Type A
    length As Long
    list As *VoidPtr
End Type

Sub callocA(ByRef a As A,listlength As Long)
    Dim i As Long
    a.length=listlength
    a.list=calloc(listlength*sizeof(VoidPtr))
    For i=0 To length-1
        a.list=calloc( ... )
    Next
End Sub

Sub freeA(ByRef a As A)
    Dim i As Long
    For i=0 To a.length-1
        free(a.list)
    Next
    free(a.list)
    a.length=0
End Sub

[code]For i=0 To 100-1
list[i]=calloc( ... )
Next[/code]のように確保した場合は、[code]For i=0 To 100-1
free(list[i])
Next[/code]のように開放する必要があります。

別解として、[code]'注：エラー処理を書いてない。
Type A
length As Long
list As *VoidPtr
End Type

Sub callocA(ByRef a As A,listlength As Long)
Dim i As Long
a.length=listlength
a.list=calloc(listlength*sizeof(VoidPtr))
For i=0 To length-1
a.list[i]=calloc( ... )
Next
End Sub

Sub freeA(ByRef a As A)
Dim i As Long
For i=0 To a.length-1
free(a.list[i])
Next
free(a.list)
a.length=0
End Sub[/code]のようにすることは出来ますね。

初心者rikaeigo2です。
配列でポインタを１００個確保したら開放もループで１００個開放するんですか？
お願いします。m(__)m