|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.12.2017, 13:06 | #1 |
Новичок
Джуниор
Регистрация: 27.12.2017
Сообщений: 17
|
Контейнеры для флажков и радиокнопок
Выдаёт ошибку unit1.pas(48,4) Error: Identifier not found "s" .Что делать?
procedure TForm1.Button1Click(Sender: TObject); begin s: String; //сначала укажем победителя: if RG1.ItemIndex = 0 then ShowMessage('Вы выбрали 1') else if RG1.ItemIndex = 1 then ShowMessage('Вы выбрали 2') else if RG1.ItemIndex = 2 then ShowMessage('Вы выбрали 3') else if RG1.ItemIndex = 3 then ShowMessage('Вы выбрали 4') else ShowMessage('Вы выбрали 5'); s:= ''; if ChG1.Checked[0] then s:= s + 'Москва проголосовала' + #13; if ChG1.Checked[1] then s:= s + 'Санкт-Петербург проголосовал' + #13; if ChG1.Checked[2] then s:= s + 'Воронеж проголосовал' + #13; if ChG1.Checked[3] then s:= s + 'Саратов проголосовал' + #13; if ChG1.Checked[4] then s:= s + 'Уфа проголосовала' + #13; if s <> '' then ShowMessage(s); end; |
31.12.2017, 13:14 | #2 |
Программист
Участник клуба
Регистрация: 23.06.2009
Сообщений: 1,772
|
Код:
|
31.12.2017, 14:54 | #3 |
Новичок
Джуниор
Регистрация: 27.12.2017
Сообщений: 17
|
Спасибо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Включение и выключение флажков по значению поля | intersk | Microsoft Office Access | 0 | 04.03.2015 16:47 |
Перенос данных в Word с учетом флажков | hamlook | Microsoft Office Excel | 2 | 18.06.2014 14:23 |
Установка и снятие флажков в CheckBox | RocBoy-D | Win Api | 3 | 09.05.2013 12:38 |
Поиск в базе данных 1 группа радиокнопок, 1 поле ввода, 1 кнопка делфи. | igi3 | Помощь студентам | 8 | 20.06.2012 16:07 |