01/* Copyright (C) 2007 db4objects Inc. http://www.db4o.com */ 02
namespace Db4objects.Db4odoc.ListDeleting 03
{ 04
class DataObject 05
{ 06
string _name; 07
string _data; 08
09
public DataObject() 10
{ } 11
12
public string Name 13
{ 14
get { return _name; } 15
set { _name = value; } 16
} 17
18
public string Data 19
{ 20
get { return _data; } 21
set { _data = value; } 22
} 23
24
public override string ToString() 25
{ 26
return string.Format("{0}/{1}", _name, _data); 27
} 28
} 29
}
01/* Copyright (C) 2007 db4objects Inc. http://www.db4o.com */ 02
using System.Collections.Generic; 03
04
namespace Db4objects.Db4odoc.ListDeleting 05
{ 06
class ListObject 07
{ 08
string _name; 09
List<DataObject> _data; 10
11
public ListObject() 12
{ 13
_data = new List<DataObject>(); 14
} 15
16
public string Name 17
{ 18
get { return _name; } 19
set { _name = value; } 20
} 21
22
public List<DataObject> Data 23
{ 24
get { return _data; } 25
set { _data = value; } 26
} 27
} 28
}
01' Copyright (C) 2007 db4objects Inc. http://www.db4o.com 02
Namespace Db4objects.Db4odoc.ListDeleting 03
04
Class DataObject 05
Private _name As String 06
Private _data As String 07
08
Public Sub New() 09
End Sub 10
11
Public Property Name() As String 12
Get 13
Return _name 14
End Get 15
Set(ByVal value As String) 16
_name = value 17
End Set 18
End Property 19
20
Public Property Data() As String 21
Get 22
Return _data 23
End Get 24
Set(ByVal value As String) 25
_data = value 26
End Set 27
End Property 28
29
Public Overloads Overrides Function ToString() As String 30
Return String.Format("{0}/{1}", _name, _data) 31
End Function 32
End Class 33
End Namespace
01' Copyright (C) 2007 db4objects Inc. http://www.db4o.com 02
Imports System.Collections.Generic 03
Namespace Db4objects.Db4odoc.ListDeleting 04
05
Class ListObject 06
Private _name As String 07
Private _data As List(Of DataObject) 08
09
Public Sub New() 10
_data = New List(Of DataObject) 11
End Sub 12
13
Public Property Name() As String 14
Get 15
Return _name 16
End Get 17
Set(ByVal value As String) 18
_name = value 19
End Set 20
End Property 21
22
Public Property Data() As List(Of DataObject) 23
Get 24
Return _data 25
End Get 26
Set(ByVal value As List(Of DataObject)) 27
_data = value 28
End Set 29
End Property 30
End Class 31
End Namespace