 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Заданее элементам массива начальных значений, ...массиву of TButton 
| Spawn |
|
|||
|
Опытный  Профиль Группа: Участник Клуба Сообщений: 278 Регистрация: 3.6.2002 Репутация: нет Всего: нет |
Я знаю, что злементы массивов таких типов как Integer, String можно заранее определять:
var mas:Array[1..10] of Integer=(1,2,3,4,5,6,7,8,9,10); а как можно заранее определить массив: var Button:Array[1..10] of TButton; (Я хочу, чтобы элементами массива были не все подряд компоненты типа TButton, а к примеру (Button1,Button4,Button7 и т.д.) Заранее спасибо |
|||
|
||||
Дата 20.6.2002, 11:10 (
Загрузка ...
| neutrino |
|
|||
 Gothic soul Профиль Группа: Модератор Сообщений: 3041 Регистрация: 25.3.2002 Где: Верхняя Галилея, Кармиэль Репутация: нет Всего: 62 |
var mas:Array[1..10] of TButton=(Button1,Button2,Button3,Button4,Button5);
Eсли Кнопки у тебя - глобальные переменные. -------------------- The truth comes from within ... Покойся с миром, Vit |
|||
|
||||
| Spawn |
|
|||
|
Опытный Профиль Группа: Участник Клуба Сообщений: 278 Регистрация: 3.6.2002 Репутация: нет Всего: нет |
Пишет: [Error]Unit1.pas(23) Constant expression expected |
|||
|
||||
| Song |
|
|||
 Sysman.ru Профиль Группа: Участник Сообщений: 1095 Регистрация: 2.6.2002 Репутация: 2 Всего: 4 |
Решение в тексте ошибки
 -------------------- Прежде чем сказать "Невозможно", подумай, прав ли ты |
|||
|
||||
| Spawn |
|
|||
|
Опытный Профиль Группа: Участник Клуба Сообщений: 278 Регистрация: 3.6.2002 Репутация: нет Всего: нет |
И в чем же, если не секрет, ошибка?  |
|||
|
||||
| Baa |
|
|||
 Эксперт Профиль Группа: Экс. модератор Сообщений: 2639 Регистрация: 12.4.2002 Где: Москва Репутация: нет Всего: 12 |
Ты наерно это хотел сделать?
procedure TForm1.Button1Click(Sender: TObject); var BArray : array [1..10] of TButton; I : Byte; begin for I := 1 to 10 do begin BArray[I] := (FindComponent('Button'+IntToStr(I)) as TButton); end; end; -------------------- "Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande |
|||
|
||||
| Spawn |
|
|||
|
Опытный Профиль Группа: Участник Клуба Сообщений: 278 Регистрация: 3.6.2002 Репутация: нет Всего: нет |
Я так и делал, но дело в том, что я не хочу, чтобы элементами массива были последовательно Button1, Button2, Button3 и т.д. Мне требуется, к примеру, такое: Butt[1]=Button1; Butt[2]=Button3; Butt[3]=Button10; |
|||
|
||||
| Baa |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 2639 Регистрация: 12.4.2002 Где: Москва Репутация: нет Всего: 12 |
Ну дык так и надо делать...подругому никак...
But[1] := Button1; и т.д. -------------------- "Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande |
|||
|
||||
| Vit |
|
|||
 Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Не получится! Кнопки у тебя переменные - т.е. это объекты класса, экземпляр этого класса - твоя форма будет сделана только при запуске. А константы определяются на этапе компилляции, а не выполнения, т.е. в момент когда никакого экземпляра класса и в помине нет... Прийдется тебе заполнять массив например на onCreate формы.
-------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0468 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |