Delphi Оператор case - Помощь студентам

Dixion · 29.05.2012, 19:35

Case Где ошибка ? объясните плз

Код:

var
  skidka_txt: string;
skidka: integer;
begin
case chb_skidka of
cbUnchecked: skidka_txt:=(#1053#1077' '#1076#1077#1081#1089#1090#1074#1091#1077#1090) and skidka:='';
cbChecked: skidka_txt:=(#1053#1072) and updn_skidka.Enabled:=True and edt_skidka.Enabled:=True;
cbGrayed: skidka_txt:= (#1053#1077' '#1091#1089#1090#1086#1085#1086#1074#1083#1077#1085#1086) and skidka:='';

end;
Lb_skidka:=skidka_txt;
end;

Mad_Cat · 29.05.2012, 19:37

Код:

cbUnchecked: begin skidka_txt:=(#1053#1077''#1076#1077#1081#1089#1090#1074#1091#1077#1090);skidka:='';end;

c остальными по аналогии

Hacker19_90 · 29.05.2012, 19:38

Цитата:

Case Где ошибка ? объясните плз

сообщения компилятора читать уже не комильфо?

Dixion · 29.05.2012, 19:39

Цитата:

Сообщение от Mad_Cat

Код:

cbUnchecked: begin skidka_txt:=(#1053#1077''#1076#1077#1081#1089#1090#1074#1091#1077#1090);skidka:='';end;

c остальными по аналогии

Код:

case chb_skidka of
cbUnchecked: begin skidka_txt:=(#1053#1077' '#1076#1077#1081#1089#1090#1074#1091#1077#1090) and skidka:=''; end;
cbChecked: begin skidka_txt:=(#1053#1072) and updn_skidka.Enabled:=True and edt_skidka.Enabled:=True; end;
cbGrayed: begin skidka_txt:= (#1053#1077' '#1091#1089#1090#1086#1085#1086#1074#1083#1077#1085#1086) and skidka:=''; end;

Все равно ошибка

Hacker19_90 · 29.05.2012, 19:46

Цитата:

Все равно ошибка

Авы может всё таки внимательно посмотрите?

Mad_Cat · 29.05.2012, 19:52

Цитата:

Ты лучше помоги чем вы***аться!

со зрением у вас проблемы и поможет только ОКулист, а у нас тут не форум Офтальмологов!!!
вы в моем коде хоть одно слово AND видите?

Цитата:

Ошибка там же!!!!!!!

видимо не только зрение хромает но и головка чуть но ладно:

Код:

case chb_skidka of
cbUnchecked:begin skidka_txt:=(#1053#1077+' '+#1076#1077#1081#1089#1090#1074#1091#1077#1090); skidka:=0;end;
cbChecked:begin skidka_txt:=(#1053#1072);updn_skidka.Enabled:=True;edt_skidka.Enabled:=True;end;
cbGrayed:begin skidka_txt:= (#1053#1077+' '+#1091#1089#1090#1086#1085#1086#1074#1083#1077#1085#1086);skidka:=0;end;
end;

текст ошибки мамка не разрешает показывать???

Аватар · 29.05.2012, 20:02

skidka: integer; нельзя пустой литерал присваивать

Dixion · 29.05.2012, 20:04

[DCC Error] Unit1.pas(58): E2001 Ordinal type required
[DCC Error] Unit1.pas(59): E2010 Incompatible types: 'Integer' and 'TCheckBoxState'
[DCC Error] Unit1.pas(59): E2010 Incompatible types: 'Integer' and 'string'
[DCC Error] Unit1.pas(60): E2010 Incompatible types: 'Integer' and 'TCheckBoxState'
[DCC Error] Unit1.pas(61): E2010 Incompatible types: 'Integer' and 'TCheckBoxState'
[DCC Error] Unit1.pas(61): E2010 Incompatible types: 'Integer' and 'string'

Mad_Cat · 29.05.2012, 20:11

Цитата:

я не понимаю че там написанно

в помощь

Dixion · 29.05.2012, 20:13

Цитата:

Сообщение от Mad_Cat

в помощь

Я знаю англ. я не понимаю что надо сделать

29.05.2012, 19:37	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `cbUnchecked: begin skidka_txt:=(#1053#1077''#1076#1077#1081#1089#1090#1074#1091#1077#1090);skidka:='';end;` c остальными по аналогии "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

29.05.2012, 20:02	#7
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	skidka: integer; нельзя пустой литерал присваивать Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
оператор Case	andresan	SQL, базы данных	1	16.05.2011 11:58
Оператор case	Степан sapral	Общие вопросы C/C++	4	21.02.2011 11:54
Отлов нажатий в Delphi и оператор Case	Athebest	Помощь студентам	15	20.12.2010 00:39
оператор case of	wlll	Помощь студентам	4	10.11.2010 19:09
Оператор case	Yermek	Помощь студентам	3	12.10.2008 18:06

29.05.2012, 20:04	#8
Dixion Заблокирован Регистрация: 29.05.2012 Сообщений: 9	[DCC Error] Unit1.pas(58): E2001 Ordinal type required [DCC Error] Unit1.pas(59): E2010 Incompatible types: 'Integer' and 'TCheckBoxState' [DCC Error] Unit1.pas(59): E2010 Incompatible types: 'Integer' and 'string' [DCC Error] Unit1.pas(60): E2010 Incompatible types: 'Integer' and 'TCheckBoxState' [DCC Error] Unit1.pas(61): E2010 Incompatible types: 'Integer' and 'TCheckBoxState' [DCC Error] Unit1.pas(61): E2010 Incompatible types: 'Integer' and 'string'