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

Вниз

Много однотипных компонентов   Найти похожие ветки 

 
ASt   (2003-08-16 01:38) [0]

Подскажите, пожалуйста( наверное, не только я с такой проблеммой сталкивался ), если на форме много однотипных компонентов( в моем случае с Edit1 по Edit27 ), то есть ли способ, небольшим набором команд, присвоить какому-либо из их свойств одинаковое значение?То есть, что бы, например, не писать 27 раз Edit.Text:="...", а сделать это короче?


 
Subdigger ©   (2003-08-16 01:57) [1]

for col:=52 to 56 do
with TEdit(FindComponent("edit" + IntToStr(col))) do
text:="mama";


 
Юрий Федоров ©   (2003-08-16 01:58) [2]

for i:=0 to ComponentCount - 1 do
begin
if Components[i] is TEdit then
(Components[i] as TEdit).Text:="...";
end;


 
Skier ©   (2003-08-16 10:25) [3]

for i:=0 to ComponentCount - 1 do
begin
if Components[i] is TEdit then
TEdit(Components[i]).Text:="...";
end;

Так побыстрее будет...



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

Текущий архив: 2003.09.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-1469
Влад Штогрин
2003-08-18 14:22
2003.09.01
Определение в системе динамического отладчика


1-1382
Dimon
2003-08-16 19:07
2003.09.01
Как скопировать участок памяти в Delphi


14-1664
Andryk
2003-08-14 10:51
2003.09.01
Вопрос на засыпку :о))


7-1676
Fokin111
2003-06-18 17:20
2003.09.01
Интеграция


14-1603
k@rt
2003-08-09 18:31
2003.09.01
Borland Resource Workshop + Русская кодировка