ReDim Preserve ile Dizileri Genişletmek

Dinamik Hafıza Genişletme

Bir dizinin boyutunu ReDim ile artırırsanız içindeki eski veriler silinir. Preserve eklerseniz eskiler korunur.

VBA Kodu:

Sub DiziGenislet()
    Dim d() As String
    ReDim d(1)
    d(1) = "Ahmet"
    ' Diziyi içindekini silmeden büyüt
    ReDim Preserve d(2)
    d(2) = "Mehmet"
    MsgBox d(1) & " ve " & d(2)
End Sub

Ne Göreceksiniz? Hafıza sonradan genişletilmesine rağmen ilk kayıt olan Ahmet silinmez, ekranda "Ahmet ve Mehmet" görünür.