группируем несколько процедур в одну

← →
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

> petun[-] (21.04.06 13:37)

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

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

--
Regards, LVT.

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