ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 03:08

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
 記事の件名: ポインタ配列を開放
投稿記事Posted: 2009年4月05日(日) 22:37 
オフライン

登録日時: 2008年7月30日(水) 23:50
記事: 23
初心者rikaeigo2です。
配列でポインタを100個確保したら開放もループで100個開放するんですか?
お願いします。m(__)m


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2009年4月07日(火) 00:01 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
コード:
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
のようにすることは出来ますね。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


最後に編集したユーザー konisi [ 2009年4月07日(火) 00:19 ], 累計 1 回

通報する
ページトップ
 記事の件名:
投稿記事Posted: 2009年4月07日(火) 00:08 
オフライン

登録日時: 2008年7月30日(水) 23:50
記事: 23
konisiさん ありがとうございました。^^


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot] & ゲスト[18人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean