初心者rikaeigo2です。
配列でポインタを100個確保したら開放もループで100個開放するんですか?
お願いします。m(__)m
ポインタ配列を開放
コード: 全て選択
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
最後に編集したユーザー konisi [ 2009年4月07日(火) 00:19 ], 累計 1 回
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。