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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.02.2007, 17:42   #11
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Sis - строковая переменная.
Оператор CASE работает с числовыми.
Теперь ясно?
mihali4 вне форума Ответить с цитированием
Старый 09.02.2007, 01:43   #12
execom
Редкий тунеядец
Форумчанин
 
Аватар для execom
 
Регистрация: 29.10.2006
Сообщений: 595
По умолчанию

Цитата:
Sis - строковая переменная.
Оператор CASE работает с числовыми.
Теперь ясно?
На самом деле CASE-ить можно и char.
execom вне форума Ответить с цитированием
Старый 09.02.2007, 03:21   #13
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
case Sis of
1: RadioButton4.Checked:=true;
0: RadioButton3.Checked:=true;
Отмеченное красным - разве это не числа?

Из хелпа по CASE:
Цитата:
The case statement may provide a readable alternative to deeply nested if conditionals. A case statement has the form

case selectorExpression of
caseList1: statement1;
...
caseListn: statementn;
end

where selectorExpression is any expression of an ordinal type (string types are invalid)

Последний раз редактировалось mihali4; 09.02.2007 в 13:06.
mihali4 вне форума Ответить с цитированием
Старый 09.02.2007, 09:03   #14
XATAB
Пользователь
 
Аватар для XATAB
 
Регистрация: 30.01.2007
Сообщений: 49
По умолчанию

Я не сильно шарю в Делфи но попробуй сделать так
Код:
 
case Sis of
'1':RadioButton4.Checked:=true;
'0':RadioButton3.Checked:=true;
end;
или так
Код:
 
case StrToInt(Sis) of
1:RadioButton4.Checked:=true;
0:RadioButton3.Checked:=true;
end;
гарантии не даю что будет работать, так как делфи под рукой нет, но по-моему пахать должно
XATAB вне форума Ответить с цитированием
Старый 09.02.2007, 10:58   #15
Simply-Art
Программист и
Участник клуба
 
Аватар для Simply-Art
 
Регистрация: 29.10.2006
Сообщений: 1,265
По умолчанию

Мне кажется что предыдущее замечание не правильно '0' это то значение которое запишится в переменную если не будут найден ключ
Simply-Art вне форума Ответить с цитированием
Старый 09.02.2007, 12:36   #16
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Мне кажется, что предыдущее замечание неправильно: '0' это то значение, которое запишется в переменную, если не будет найден ключ
Совершенно верно, это значение DEFAULT, по умолчанию.
Вариант
Цитата:
case Sis of
'1':RadioButton4.Checked:=true;
'0':RadioButton3.Checked:=true;
end;
работать не будет, причину я уже указывал (интересно, для кого?) - т.к. SIS является строкой, а не Char-ом:
where selectorExpression is any expression of an ordinal type (string types are invalid)

Последний раз редактировалось mihali4; 09.02.2007 в 12:54.
mihali4 вне форума Ответить с цитированием
Старый 09.02.2007, 12:47   #17
Fox
линуксоид
Форумчанин
 
Аватар для Fox
 
Регистрация: 02.11.2006
Сообщений: 157
По умолчанию

[quote=Fox;10538]
Код:
Sis:=Ini.ReadString('User','Sis','0');
сори поспешил эта строка верная!

А вообще то может лучше использовать:
Код:
Sis:=Ini.ReadInteger('User','Sis','0');
а потом и с case'ом проще буит!!!

Последний раз редактировалось Fox; 09.02.2007 в 12:52.
Fox вне форума Ответить с цитированием
Старый 09.02.2007, 12:57   #18
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Малюсенькая поправочка - не
Цитата:
Sis:=Ini.ReadInteger('User','Sis','0');
а так:
Цитата:
Sis:=Ini.ReadInteger('User','Sis',0);
mihali4 вне форума Ответить с цитированием
Старый 10.02.2007, 17:51   #19
Washington
Пользователь
 
Регистрация: 04.02.2007
Сообщений: 38
По умолчанию

Цитата:
Sis:=Ini.ReadInteger('User','Sis',0 );
Спасибо, я как раз уже так и сделал.
Washington вне форума Ответить с цитированием
Старый 10.02.2007, 18:35   #20
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
По умолчанию

такие споры вокруг Case
[ ]
а тема про ini-файлы ..
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С чего начать ? AKArmor Свободное общение 4 29.07.2008 23:13
С чего начать? Plagin Помощь студентам 13 02.07.2008 16:59
С чего начать OrdJONY Общие вопросы .NET 3 29.12.2007 19:50
С чего начать? Dallas* Помощь студентам 8 23.10.2007 19:10
два вредных вопроса:про асю и прикриплёные файлы файлы steck Свободное общение 3 17.06.2007 14:53