Главная страница
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.126 c
6-1138086770
clickmaker
2006-01-24 10:12
2006.05.28
Indy 10 - IdFtp - HTTP Proxy with FTP support


2-1147245283
Id
2006-05-10 11:14
2006.05.28
Пользователи базы данных


11-1127473310
nester
2005-09-23 15:01
2006.05.28
Как в TKOLListView при LvsDetail сделать каждый item многострочны


2-1147327268
VitalZ
2006-05-11 10:01
2006.05.28
Невидимая папка


8-1135588915
ilifant
2005-12-26 12:21
2006.05.28
Уважаемые мастера у меня, в справке отсутствует описание функций