Tutorials Infos - Anleitungen - Hilfe - Dreamcodes
 

Aufräumen

Module GCDemo
Sub Main()
Dim i As Integer
For i = 0 To 500
Dim d As New vol(i)
Next
Console.ReadLine()
End Sub
End Module
Class vol
Private num As Integer
Private vol As String
Public Sub New(ByVal n As Integer)
num = n
vol = Strings.StrDup(25000, "X"c)
End Sub
Protected Overrides Sub finalize()
Console.WriteLine("{0} aufgeräumt", num)
End Sub
End Class

 
ID: 1937
eingestellt am: 25.01.2010
Autor: Keine Angabe
Status zum lesen: Gast
gelesen: 5593
Webseite: www.dreamcodes.com
[Drucken]