[Молоток]

Привет специалисты программирования. Для оптимизации нижеследующего кода необходимо перевести в case, но у меня не получается (нехватает знания). Если у кого найдется желание, дайте немного знания новичку. Спасибо всем, кто заглянул.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

if w1='1' then      begin       wNach:=0;       wKon:=6;      end;     if w1='2' then      begin       wNach:=1;       wKon:=5;      end;     if w1='3' then      begin       wNach:=2;       wKon:=4;      end;     if w1='4' then      begin       wNach:=3;       wKon:=3;      end;     if w1='5' then      begin       wNach:=4;       wKon:=2;      end;     if w1='6' then      begin       wNach:=5;       wKon:=1;      end;     if w1='7' then      begin       wNach:=6;       wKon:=0;      end;

[Молоток]

сделал вот так, но выдает ошибку oridinal type required

Код:

1 2 3 4 5 6 7 8 9 10

case w1 of      1: begin wNach:=0; wKon:=6; end;      2: begin wNach:=1; wKon:=5; end;      3: begin wNach:=2; wKon:=4; end;      4: begin wNach:=3; wKon:=3; end;      5: begin wNach:=4; wKon:=2; end;      6: begin wNach:=5; wKon:=1; end;      7: begin wNach:=6; wKon:=0; end      else showmessage('Ошибка');     end;

[ryderx34]

case со строками не работает.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var   Value: Integer;   if TryStrToInt(w1, Value) then case Value of   1: begin wNach:=0; wKon:=6; end;   2: begin wNach:=1; wKon:=5; end;   3: begin wNach:=2; wKon:=4; end;   4: begin wNach:=3; wKon:=3; end;   5: begin wNach:=4; wKon:=2; end;   6: begin wNach:=5; wKon:=1; end;   7: begin wNach:=6; wKon:=0; end else   ShowMessage('Ошибка'); end;

[AlexSku]

Сообщение от Молоток

необходимо перевести в case

Это довольно частая ошибка новичков - предлагать странные решения. "Искусство ради искусства"? Вы хотите наверняка упростить код, а для этого надо проанализировать алгоритм. Во-первых, как вы и хотите, case поможет:

Код:

1 2 3 4 5 6 7 8 9

case StrToInt(w1) of     1:     begin       wNach:=0;       wKon:=6;     end;     2: ...   end;

Но анализ кода говорит нам, что можно обойтись одной формулой, без case:

Код:

1 2	wNach:= StrToInt(w1) - 1; wKon:= 7 - StrToInt(w1);

Если w1 может принимать другие значения, то это можно проверить перед формулами.

[Молоток]

Но анализ кода говорит нам, что можно обойтись одной формулой, без case:

Код:

1 2	wNach:= StrToInt(w1) - 1; wKon:= 7 - StrToInt(w1);

Если w1 может принимать другие значения, то это можно проверить перед формулами.[/quote]

Спасибо за быстрый ответ .

[Молоток]

Уважаемые гуру. Есть задачка, которую несколько дней не могу решить. Видно такие задачки Вам ничего не стоят, помогите у кого будет желание.
Имеется DateTimePicker, дата которого равняется системной дате. Есть таблица с полей Дата_Фикс. При нажатии на кнопку в Grid-е должно выводится только те строки таблицы, которые входят в эту неделю, то есть NachNed-DateTimePicker.date и KonNed+DateTimePicker.date