Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.12.2017, 13:06   #1
Viktoria14
Новичок
Джуниор
 
Регистрация: 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;
Viktoria14 вне форума Ответить с цитированием
Старый 31.12.2017, 13:14   #2
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
Black Fregat вне форума Ответить с цитированием
Старый 31.12.2017, 14:54   #3
Viktoria14
Новичок
Джуниор
 
Регистрация: 27.12.2017
Сообщений: 17
По умолчанию

Спасибо!
Viktoria14 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Включение и выключение флажков по значению поля 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