2 Case в 1

[minamoto]

Всем привет!

Как же тяжело после php или as2 переходить на дельфи. Разные миры программирования. Если там это легко сделать, то здесь надо приложить усилия, чот бы заработало.

Собственно суть темы:

Если пишу вот так, то все работает

var number : integer;

begin
  number := 1;

   Case number of

   1: Memo1.Lines.Add('1');
   2: Memo1.Lines.Add('2');

   end;

end;

Если пишу, вот так, то не работает

var number, number2 : integer;

begin
  number := 1;
  number2 := 2;
   Case number of

   1: Memo1.Lines.Add('1');
   2: Memo1.Lines.Add('2');

   Case number2 of

   1: Memo1.Lines.Add('1');
   2: Memo1.Lines.Add('2');

   end;

   end;

end;

Объясните пожалуйста, почему так не работает? Мне нужно что бы если выполнилось одно условие, то по этому выполненому условию проходил бы разбор вложенного условия.

[minamoto]

Аа, понял свой касяк, тупонул. Как удалить тему?

var number, number2 : integer;

begin

  number := 2;
  number2 := 2;
   Case number of

   1: Memo1.Lines.Add('1');
   2: begin

   Memo1.Lines.Add('2');

   Case number2 of

   1: Memo1.Lines.Add('1');
   2: Memo1.Lines.Add('2');

   end;

   end;

   end;

А как сделать, что бы текстовые значения обрабатывались?

[Pein95]

что вы имеете в веду под словом обрабатывались?

[Человек_Борща]

minamoto, используйте утилиты для форматирования кода в приятный вид.
Будет проще разобраться...

во воводу темы. Case внутири другого case возможен:

case One-case of
  n:
    begin
    {...case блок-1...}
      case Two-case of
         n2:
            begin
         {...case блок-2...}
            end; //cse 2 n2
       end; //case 2
    end; //case 1 n
end; //case 1

case используется для создания условий выполнения кода, только при определённых условиях, варианты котрого представляются только в виде целых чисел.

[minamoto]

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

что вы имеете в веду под словом обрабатывались?

я имею ввиду, что вот это не будет работать:

var str : string;

begin

  str := 'text1';

   Case str of

   'text1': Memo1.Lines.Add('text1');
   'text2': Memo1.Lines.Add('text2');

   end;

end;

Сообщение от Человек_Борща

minamoto, используйте утилиты для форматирования кода в приятный вид.
Будет проще разобраться...

Приведенный вами код тоже трудно читаем по моему мнению. Без подстветки в begin end очень трудно разбираться. Получается каша, не важно даже, ваш это код или чей-то другой. Для маленького кода который, в первом посте влом формировать расставлять код.

Если вы знаете какой нибудь плагин с подсветкой синтаксиса для delphi7, то буду признателен.

Сообщение от Человек_Борща

во воводу темы. Case внутири другого case возможен:

case One-case of
  n:
    begin
    {...case блок-1...}
      case Two-case of
         n2:
            begin
         {...case блок-2...}
            end; //cse 2 n2
       end; //case 2
    end; //case 1 n
end; //case 1

case используется для создания условий выполнения кода, только при определённых условиях, варианты котрого представляются только в виде целых чисел.

Я во втором посте написал в чем я ошибся, из-за невнимательности.

Почему в case нельзя в качестве проверяемого условия подставлять текст? с чем это связано? и есть ли какие нибудь решения, что бы в виде case можно было проверять текстовые условия?

ох как не удобно в дельфи работать. С непривычки. Приходится использовать if else if

[Человек_Борща]

знаю плагин. И даже не плагин. А монстр. И этот монстр станет вашим незаменимым помошником. Называется CnWizzards обитает на http://cnpack.org/

там есть все что угодно. От подстветки синтаксиса до удобного бэкапера проекта=) И даже больше....

[minamoto]

спасибо за советы, попробую поставить плагин.

А почему обязательно в верхнем регистре нужно? с чем это связано?
Буквы по другому восприниматься начинают? или буквы в верхнем регистре не палятся, что они буквы, а не цифры?

Если такая конструкция работает, то пусть хотя бы такая.
Еще раз спасибо!

[Человек_Борща]

По поводу этого хитрого приёма лучше уточнять у справки delphi. В 5 утра уже плохо думается.

Перевод символов в верхний регистр уменьшит различие строк.
И таким образом у вас не будет проблем с <привет> и <ПрИвЕт>. Когда все будет так: <ПРИВЕТ> и <ПРИВЕТ>.
НО также не забывает поудалять пробелы по бокам, ибо:
<ПРИВЕТ> и <ПРИВЕТ > - это уже разные строки.