רשימה ו &

[snaidis]

רשימה ו &

יש לי שתי שאלות: 1. כיצד אני בונה רשימה מקושרת ב VB? 2. כיצד אני מקצה זיכרון בצורה דינאמית ב VB?

 

[Desslok of Gamilon]

שאל בפורום VB

 

[snaidis]

לא ענו לי שם...

ואני גם לא בטוח שיענו לי שם...

 

[גיל14]

תשובה: אתה לא.

 

[DNile]

למה אתה להגיד דברים קשים כאלה?

 

[גיל14]

כי אני שונא את VB

וסתם לא הבנתי את השאלה (חשבתי שהוא דיבר על מצביעים)

 

[selalerer]

לא מומחה גדול לVB אבל זה צריך להיעש

ות בעיקרון בעזרת referenceים (שזה בדומה לJava כל משתנה שאתה מכריז עליו למעשה.

Public Class Node Dim NextNode As Node Dim m_data As Object Public Sub Node_Initialize(Data As Object) Set m_data=Data Set NextNode=Nothing End Sub Public Sub Node_Terminate() Set m_data=Nothing Set NextNode=Nothing End Sub Public Property Get Data() As Object Data=m_data End Property Public Property Get Next() AS Node Next=NextNode End Property End Class Public Class List Dim m_head As Node Public Sub List_Initialize() Set m_head=Nothing End Sub Public Sub Add(Data As Object) Dim ptr As Node Set ptr=m_head If ptr=Nothing Then Set m_head=new Node(Data) Exit Sub End If Do While(ptr.Next<>Nothing) Set ptr=ptr.Next Loop Set ptr.Next=new Node(Data) End Sub Public Sub List_Terminate() Dim ptr As Node Set ptr=m_head If ptr=Nothing Then Exit Sub End If Do While(ptr<>Nothing) Set m_head=ptr Set ptr=ptr.Next Set m_head=Nothing Loop End Sub End Class​

זה ככה מהראש, אני מקווה שזה עובד (יש כמובן עוד דברים להוסיף, אבל זה הרעיון). בהצלחה.