حذف عناصر یک آرایه ؟؟؟

[سپهر-111]

سلام دوستان چطور میشه عناصر یک ارایه رو حذف کرد ؟؟ مثلا ما یک فایل باز میکنیم Open App.Path & "\MyResource.dll" For Binary As #1 Put #1, 1, file1() بعد از محتویات ارایه که استفاده کردیم و کارمون تمام شد چطور میشه ارایه رو از بین برد یا اینکه تعداد عناصر اون صفر کرد تا میزان مصرف رم در برنامه کم بشه

[just4froum]

با استفاده از دستور Erase . مانند :

Erase MyArray

[سپهر-111]

با استفاده از دستور Erase . مانند :

Erase MyArray

سلام ممنون از پاسخ شما ایا با دستور Erase آرایه بدون عنصر میشود یا اینکه مقدار عنصرهای قبلی حذف میشود؟؟

[Veteran]

میتونستین خودتون تست کنید.اما خب....
نه فقط مقدار ارایه پاک میشه.
ارایه رو بدون عنصر نمیکنه.

Dim myArray(1 To 10) As Integer
For i = 1 To 10
myArray(i) = i
Next
MsgBox myArray(3)
Erase myArray
MsgBox myArray(3)

[just4froum]

میتونستین خودتون تست کنید.اما خب....
نه فقط مقدار ارایه پاک میشه.
ارایه رو بدون عنصر نمیکنه.


ببخشید اینو می گم ولی جواب شما اشتباه است.

دقیقا آرایه رو بدون عنصر می کند. ( شما وقتی می توانید آرایه ای رو بدون عنصر کنید که اونو بدون طول معینی بسازید ) . اما شما آرایه myArray رو با طول ثابت از 1 تا 10 ساختید پس نمی تونید اونو بدون عنصر کنید. کد زیر را امتحان کنید متوجه می شوید :

Dim myArray() As Integer
Private Sub Form_Load()
ReDim myArray(1 To 10) As Integer
For i = 1 To 10
myArray(i) = i
Next
MsgBox myArray(3)
Erase myArray
MsgBox myArray(3)
End Sub

[Veteran]

بله حق با شما بود.ممنون.ی نکته بود.....