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