Коротко. О рефакторинге. "С колёс"

Совсем не стремлюсь открыть Америку и тем более чему-то "научить".

Скажем так - "меня попросили сделать review кода".

Поэтому просто дам "пример переписывания кода".

Был код:

procedure TraverseTreeItems(const aTree : TTreeViewItem; var ResultList : TList<TTreeViewItem>);
var
 i : Integer;
begin
 for i := 0 to Pred(aTree.Count)  do
 begin
  if aTree.Items[i].IsChecked
   then ResultList.Add(aTree.Items[i]);

  TraverseTreeItems(aTree.Items[i], ResultList);
 end;
end;

procedure TraverseTree(const aTree: TTreeView; var ResultList : TList<TTreeViewItem>);
var
 i : integer;
begin
 for i := 0 to Pred(aTree.Count) do
 begin
  if aTree.Items[i].IsChecked then
   ResultList.Add(aTree.Items[i]);

  TraverseTreeItems(aTree.Items[i], ResultList);
 end;
end;

Вообще говоря, можно написать так:

type
 TTreeViewItemList = TList<TTtreeViewItem>;

...

procedure TraverseTreeItem(anItem : TTreeViewItem; ResultList : TTreeViewItemList);
var
 i : Integer;
begin
 if anItem.IsChecked then
  ResultList.Add(anItem);
 
 for i := 0 to Pred(anItem.Count)  do
  TraverseTreeItems(anItem.Items[i], ResultList);
end;

procedure TraverseTree(aTree: TTreeView; ResultList : TTreeViewItemList);
var
 i : integer;
begin
 for i := 0 to Pred(aTree.Count) do
  TraverseTreeItem(aTree.Items[i], ResultList);
end;

-- и сделать тест, что оба алгоритма - дают одинаковый результат :-) Рандомный. Как мы когда-то писали. (Про тесты я напишу позже, если конечно интересно)

Что мы тут сделали?

Мы перенесли "ответственность" по проверке aTree.Items[i].IsChecked в anItem.IsChecked (из одного метода в другой).

Т.е. спустили часть одного метода в другой.

Ну и ввели "алиас" - TTreeViewItemList.

Ну и убрали лишние const и var. (Кстати в Delphi не хватает всё же спецификаторов параметров типа constref и varref или constobject и varobject и спецификатора const на метод, особенно getter, ну по аналогии с C++, но правда тогда и mutable может понадобиться)

Вот собственно и всё. Ничего "космического".

Мелочь? Да - мелочь! Но из таких "мелочей" и складывается читабельный, сопровождаемый и тестируемый код.

P.S. Можно ещё generic'и применить. Но надо ли? Для одной строчки.

Update.

P.P.S. кстати к TTreeView и TTreeViewItem можно enumerator'ы привесить через helper'ы
попробуете?

http://programmingmindstream.blogspot.ru/2014/08/for-in.html

Или:

for anItem in TTreeViewEnumerator.Get(aTree) do ...
for anItem in TTreeViewEnumerator.Get(aTree) do ...

Где - TTreeViewEnumerator.Get это class function: TEnumerator с overload

мысль понятна?

Тогда можно будет написать так:

type
 TTreeViewItemList = TList<TTtreeViewItem>;

...

procedure TraverseTreeItem(anItem : TTreeViewItem; ResultList : TTreeViewItemList);
var
 l_Item : TTreeViewItem;
begin
 if anItem.IsChecked then
  ResultList.Add(anItem);
 
 for l_Item in TTreeViewEnumerator.Get(anItem)  do
  TraverseTreeItems(anItem.Items[i], ResultList);
end;

procedure TraverseTree(aTree: TTreeView; ResultList : TTreeViewItemList);
var
 l_Item : TTreeViewItem;
begin
 for l_Item in TTreeViewEnumerator.Get(aTree) do
  TraverseTreeItem(l_Item, ResultList);
end;

- мысль понятна?