Скачать: CL | DM;

Однообразная работа с 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));

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

---

← →
Anatoly Podgoretsky ©   (2008-10-26 01:32) [6]

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

Вообще то TStrings

---

← →
Германн ©   (2008-10-26 02:10) [7]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c