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

Вниз

Как обращаться к однотипным компонентам по их номерам?   Найти похожие ветки 

 
Максимка   (2002-02-02 14:11) [0]

Вопрос у меня скорее умозрительный: например, имеются компоненты, скажем, TEdit в количестве 30 штук (TEdit1, TEdit2,...,TEdit30). И предположим, я хочу содержание их полей ввода перенести в массив. Как это сделать, не перебирая их всех по одному, а обращаясь в цикле по номеру ?


 
Vovchik ©   (2002-02-02 14:15) [1]

Можно использовать св-во Components[i] у владельца, а у твоих едитов сделать св-ва Tag от 0 до чего-то.


 
Максимка   (2002-02-02 15:13) [2]

Хотелось бы также узнать об этом поподробнее.


 
Vovchik ©   (2002-02-02 15:19) [3]

Я щас не на своём компе и скоро свалю. Поэтому пиши мыло.
А что подробнее? Ну, типа:

procedure TForm1.ChegoToDelay(Sender:TObject);
var
MyArray:array[0..29] of integer;
begin
for i:=0 to ComponentCount-1 do
begin
if Components[i] is TEdit then
MyArray[Components[i].Tag]:=StrToInt(TEdit(Components[i]).Text);
end;
end;

Не пойдёт такое?


 
Anatoly Podgoretsky ©   (2002-02-02 16:35) [4]

FindComponent("TEdit"+IntToStr(I)) вернет то что нужно, без сканировния массива Components и использования свойства Tag ,со всеми вытекающими из этого последствиями



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

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

Наверх




Память: 0.47 MB
Время: 0.007 c
3-57010
olden
2002-01-22 18:10
2002.02.18
то ли ADO глючит, то ли...


4-57251
Digitman
2001-11-05 13:30
2002.02.18
Какой ресурс в NT жестко ассоциирован с хэндлом со значением 4 ?


1-57045
Санька
2002-02-02 10:52
2002.02.18
Delphi 6 и Delphi 4


3-56975
Jony
2002-01-23 12:13
2002.02.18
В DBGrid


1-57087
Егор
2002-01-31 04:25
2002.02.18
DCOM