Форум: "Основная";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
ВнизМного однотипных компонентов Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c