| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

группируем несколько процедур в одну [D7, Win2k, WinXP]

petun[-] ©   (2006-04-21 13:37:00) 

Есть три кнопки but1 but2 but3.
but1 очищает memo1, but2 memo2, but3 memo3.

как сделать все эти действия в одной процедуре????

делал так:

case (Sender as TButton).Tag of
1: memo1.clear;
2: memo2.clear;
3: memo3.clear;
end;


вопрос, как сделать еще короче???

---

Leonid Troyanovsky   (2006-04-21 19:40:00) [1]

> petun[-]   (21.04.06 13:37)  

> Есть три кнопки but1 but2 but3.
..
> вопрос, как сделать еще короче???


Сделать одну кнопку?

--
Regards, LVT.

---

Dmitrij_K   (2006-04-21 13:43:00) [2]

А по-моиму и так хорошо.
Хотя можно извратится и завести массив мемок

var MemoArray : Array[1..3] of TMemo;
{...}
OnCreate()
begin
MemoArray[1] := memo1;
MemoArray[2] := memo2;
MemoArray[3] := memo3;
end;
{...}
OnClick()
begin
MemoArray[ (Sender as TButton).Tag].Clear;
end

---

petun   (2006-04-21 13:42:00) [3]

спасибо

---

ЛшдлуттнСфе   (2006-04-21 13:40:00) [4]

Tmemo(FindComponent('memo' + inttostr((Sender as TButton).Tag))).clear

не все короткое - быстрее.

---

Наверх