Читаем Программирование мобильных устройств на платформе .NET Compact Framework полностью

'Эта функция переустанавливает содержимое нашего тестового

'массива, что обеспечивает возможность многократного

'выполнения тестового алгоритма

'---------------------------------------------------------

Private Sub ResetTestArray(ByRef testArray As String)

 If (testArray Is Nothing) Then

  ReDim testArray(6)

 End If

 testArray(0) = "big_blue_duck"

 testArray(1) = "small_yellow_horse"

 testArray(2) = "wide_blue_cow"

 testArray(3) = "tall_green_zepplin"

 testArray(4) = "short_blue_train"

 testArray(5) = "short_purple_dinosaur"

End Sub

Листинг 8.3. Тестовый пример, демонстрирующий неэкономное распределение памяти (типичный первоначальный вариант реализации интересующей нас функции)

Private Sub Button2_Click(ByVal sender As System.Object, _

 ByVal e As System.EventArgs) Handles Button2.Click

 'Вызвать сборщик мусора, чтобы быть уверенными в том, что

 'тест начнется с чистого состояния.

 'ПРИБЕГАЙТЕ К ЭТОЙ МЕРЕ ТОЛЬКО В ЦЕЛЯХ ТЕСТИРОВАНИЯ! Вызовы

 'сборщика мусора в программах вручную будут приводить к снижению

 'общей производительности приложений!

 System.GC.Collect

 Dim testArray As String = Nothing

 '--------------------------------------------------

 'Просмотреть элементы массива и

 'найти те из них, в которых средним словом является

 '"blue". Заменить "blue" на "orange"

 'Запустить секундомер для нашего теста!

 '--------------------------------------------------

 PerformanceSampling.StartSample(0, "WastefulWorkerClass")

 Dim workerClass1 As WastefulWorkerClass

 Dim outerLoop As Integer

 For outerLoop = 1 To LOOP_SIZE

  'Присвоить элементам массива значения, которые мы хотим использовать

  'при тестировании

  ResetTestArray(testArray)

  Dim topIndex = testArray.Length - 1

  Dim idx As Integer

  For idx = 0 To topIndex

   '------------------------------------------

   'Создать экземпляр вспомогательного класса,

   'который расчленяет строку на три части

   'Это неэкономный способ!

   '------------------------------------------

   workerClass1 = New WastefulWorkerClass(testArray(idx))

   'Если средним словом является "blue", заменить его на "orange"

   If (workerClass1.MiddleSegment = "blue") Then

    'Заменить средний сегмент

    workerClass1.MiddleSegment = "orange"

    'Заменить слово

    testArray(idx) = workerClass1.getWholeString

   End If

  Next 'внутренний цикл

 Next 'внешний цикл

 'Получить время окончания теста

 PerformanceSampling.StopSample(0)

 MsgBox(PerformanceSampling.GetSampleDurationText(0))

End Sub

Листинг 8.4. Рабочий класс для первого тестового примера

Option Strict On

Imports System

Public Class WastefulWorkerClass

Private m_beginning_segment As String

Public Property BeginSegment As String

 Get

  Return m_beginning_segment

 End Get

 Set(ByVal Value As String)

  m_beginning_segment = Value

 End Set