Форум: "Основная";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Вниз

группируем несколько процедур в одну   Найти похожие ветки 

← →
petun[-]   (2006-04-21 13:37) [0]

Есть три кнопки 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;


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

---

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

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

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

---

← →
petun   (2006-04-21 13:42) [2]

спасибо

---

← →
Dmitrij_K   (2006-04-21 13:43) [3]

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

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

---

← →
Leonid Troyanovsky ©   (2006-04-21 19:40) [4]

> petun[-]   (21.04.06 13:37)  

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


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

--
Regards, LVT.

---

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

Форум: "Основная";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c