Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
2-1147378010
Mr tray
2006-05-12 00:06
2006.05.28
использование DLL


4-1141123112
Axis_of_Evil
2006-02-28 13:38
2006.05.28
twm as AttachThreadInput


15-1146766116
iZEN
2006-05-04 22:08
2006.05.28
FreePascal и его возможности


2-1147081029
BAngel
2006-05-08 13:37
2006.05.28
События мышки


2-1147078700
cardexc
2006-05-08 12:58
2006.05.28
не получается сделать запрос