Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Mantikor123
22 / 22 / 10
Регистрация: 23.12.2009
Сообщений: 254
1

Цикличное обращение к RadioButton

17.03.2013, 15:16. Просмотров 347. Ответов 6
Метки нет (Все метки)

Собственно есть вот элементарнейший код, он должен присвоить находящимся на форме РадиоБаттонам номера.
Delphi
1
2
3
4
5
6
7
procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
q1: array of TRadioButton;
begin
  for i:=1 to 4 do
q1[i].Caption:=IntToStr(i);
end;
вроде все правильно, но происходит такая ошибка при запуске.
Кликните здесь для просмотра всего текста
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00451B33 in module 'Project1.exe'. Read of address 00000004'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.03.2013, 15:16
Ответы с готовыми решениями:

Как сделать чтобы после нажатия RadioButton в Label2 автоматически вносилось произведение RadioButton на Label1
Как сделать чтобы после нажатия RadioButton в Label2 автоматически вносилось...

Как сделать чтобы после нажатия RadioButton в Label2 автоматически вносилось произведение RadioButton на Label1
Как сделать чтобы после нажатия RadioButton в Label2 автоматически вносилось...

Как сделать чтобы после нажатия RadioButton в одном из шести Radiogroop в edit1 автоматически вносилось значение radiobutton
Как сделать чтобы после нажатия RadioButton в одном из шести Radiogroop в edit1...

Цикличное внесение одинаковых данных в TStringList через TString.CommaText
Всем доброго времени суток. Подскажите мне пожалуйсто ответ на такой вопрос. ...

radiobutton
Как сделать так, чтобы при запуске программы, если не выбран ни один из...

6
mss
2634 / 2258 / 276
Регистрация: 24.12.2010
Сообщений: 13,725
17.03.2013, 15:19 2
Цитата Сообщение от Mantikor123 Посмотреть сообщение
он должен присвоить находящимся на форме РадиоБаттонам номера
Это с какой же радости он "должен" ? И тем более "на форме" ?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26502 / 17797 / 7042
Регистрация: 22.10.2011
Сообщений: 31,325
Записей в блоге: 6
17.03.2013, 15:21 3
Цитата Сообщение от Mantikor123 Посмотреть сообщение
Delphi
1
q1: array of TRadioButton;
- это описание дин. массива. Где установка его размера, и инициализация его элементов?
1
Mantikor123
22 / 22 / 10
Регистрация: 23.12.2009
Сообщений: 254
17.03.2013, 15:26  [ТС] 4
Мда, я лопух....
все как всегда гениально просто.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button14Click(Sender: TObject);
var i:integer;
q1: array[1..4] of TRadioButton;
begin
q1[1]:=RadioButton11;
q1[2]:=RadioButton12;
q1[3]:=RadioButton13;
q1[4]:=RadioButton14;
 
for I := 1 to 4 do
      q1[i].Caption:=inttostr(i);
 
end;
0
mss
2634 / 2258 / 276
Регистрация: 24.12.2010
Сообщений: 13,725
17.03.2013, 15:27 5
Даже еще проще - никакой массив нафих не нужен
0
Mantikor123
22 / 22 / 10
Регистрация: 23.12.2009
Сообщений: 254
17.03.2013, 15:32  [ТС] 6
а как тогда? можно примерчик?
0
mss
2634 / 2258 / 276
Регистрация: 24.12.2010
Сообщений: 13,725
17.03.2013, 15:39 7
for I := 1 to 4 do TRadioButton(FindComponent('RadioButton1'+inttostr(i)).Caption:=inttostr(i);
1
17.03.2013, 15:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2013, 15:39

Radiobutton
Исходя из этой функции: function...

radiobutton
если имеется 6 кнопок radiobutton, но выбор нужно сделать из первых трех и из...

Многозадачность RadioButton
Здравствуйте, Подскажите пожалуйста, Как сделать так, что бы я смог поставить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru