Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Kolan © (2008-10-26 00:35:00)
Здравствуйте,
Задача проста: написать процедуру, которая бы заполняла свойство Items комбобокса или листбокса без дублирования кода.

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

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

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

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

Германн (2008-10-26 02:10:00) [1]

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

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

Anatoly Podgoretsky (2008-10-26 01:32:00) [2]
> Kolan (26.10.2008 1:16:04) [4]

Вообще то TStrings

{RASkov} (2008-10-26 01:29:00) [3]
procedure ViewValues(AList: TStrings); begin for I := 0 to 9 do AList.Add(IntToStr(I));

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

Kolan (2008-10-26 01:16:00) [4]
Мда, пошел ка я спать, извените.

Johnmen (2008-10-26 01:03:00) [5]
Хм... А TStringList что, никак?

Kolan (2008-10-26 00:54:00) [6]
Конкретно:
— Как описать параметры такой функции, т. е. какого типа передавать объект?
— Как к этому объекту обращаться, т. е. как добраться до св-ва Items?

Johnmen (2008-10-26 00:50:00) [7]
А в чём сложность? Конкретно...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »