Однообразная работа с TComboBox и TListBox.

← →
Kolan © (2008-10-26 00:35) [0]

Здравствуйте,
Задача проста: написать процедуру, которая бы заполняла свойство Items комбобокса или листбокса без дублирования кода.

Семантика должна быть примерно такая:
procedure ViewValues(AListControl: T<чёрт его знает что тут>);

Внутри, допустим цикл, это не важно:
for I := 0 to 9 do <AListControl>.Items.Add(IntToStr(I));

Имхо, желание очевидное, и у того и у другого есть свойство Items, работа с которым схожа. Зачем же дублировать код? Посмотрел в генофонде оба они потомки TCustomListControl, но это абстрактный класс, пользы от которого, для решения данной задачи, я не вижу.

Как же написать такую процедуру, подскажите?..

← →
Johnmen © (2008-10-26 00:50) [1]

А в чём сложность? Конкретно...

← →
Kolan © (2008-10-26 00:54) [2]

Конкретно:
— Как описать параметры такой функции, т. е. какого типа передавать объект?
— Как к этому объекту обращаться, т. е. как добраться до св-ва Items?

← →
Johnmen © (2008-10-26 01:03) [3]

Хм... А TStringList что, никак?

← →
Kolan © (2008-10-26 01:16) [4]

Мда, пошел ка я спать, извените.

← →
{RASkov} © (2008-10-26 01:29) [5]

procedure ViewValues(AList: TStrings); begin for I := 0 to 9 do AList.Add(IntToStr(I));

Вызов: ...Ну ты понял :)

> Kolan (26.10.2008 1:16:04) [4]

Вообще то TStrings

> Anatoly Podgoretsky © (26.10.08 01:32) [6]

Хм. А как спать на "TStrings"?
Не ну в молодые годы, в стройотрядах я прекрасно мог "досыпать" остаток от обеденного перерыва или "вынужденный" перерыв между приездом бетоновозов, положа голову на кирпич (с прокладкой в виде "рабочей брезентовой рукавицы":). Сейчас дело хуже. :(

Однообразная работа с TComboBox и TListBox. Найти похожие ветки