TRUE в одном из элементов → FALSE во всех остальных.

[Alex Cones]

A : Array of Boolean; //ЛЮБОЙ тип, который 
// можно проверить в условии  IF/CASE без всяких проблем
// в одну строку.

SetLength(A, 5);
For I := 1 to 4 Do
 A[I] := FALSE;
A[0] := TRUE;

Procedure Activate(B : Boolean); //Такой же пофигизм, что и выше.

Як кастануть процедуру, которая будет "включать" один элемент, а остальные "гасить"?

Есть вариант не через массив, а через число INTEGER, а оперировать битами. Но тогда
1) Трудно будет "на взгляд" определять, какой режим включен.
2) Не получится наколдовать CASE.

[Utkin]

Сообщение от Alex Cones

1) Трудно будет "на взгляд" определять, какой режим включен.

Почему? Написали функцию один раз и когда надо, тогда и вызвали. Наша кошка тоже сначала боялась пылесоса, а потом ничего, втянулась.

2) Не получится наколдовать CASE.

Это принципиально для решения задачи?

[Alex Cones]

Это принципиально для решения задачи?

Function WindowProc(Hand, Mess :LongWord; wParam, lParam: LongInt): LongInt; StdCall;
  Begin
   Result := DefWindowProc(Hand, Mess, wParam, lParam);
   If SplashMode Then                              // ┌ SPLASH MODE
    Case Mess Of                                   // │
     WM_DESTROY     : UNTForms.ShutDown;           // │
     WM_KEYDOWN     : UNTForms.CheckKey(wParam);   // │
     WM_PAINT       : UNTGraph.DrawB;              // │
   End Else                                        // └ SPLASH MODE
   If MainMenuMode Then                            // ┌ MAIN MENU MODE
    Case Mess Of                                   // │
     WM_DESTROY     : UNTForms.ShutDown;           // │
     WM_PAINT       : UNTGraph.DrawB;              // │
    End;                                           // └ MAIN MENU MODE
  End;

[Utkin]

Не совсем уловил принцип, хотя это не важно. Не совсем понял, где возникнут проблемы с Case.

[Stilet]

Як кастануть процедуру, которая будет "включать" один элемент, а остальные "гасить"?

Не нравится в цикле делай так:

ZeroMemory(a,Length(a));
a[такое то]:=true;

А чем цикл то не угодил?

SetLength(A, 5);
For I := low(a) to high(a) Do A[i] := FALSE;
A[0] := TRUE;

По-моему достаточно надежно

[Alex Cones]

Не совсем уловил принцип, хотя это не важно

В зависимости от того "режима", который сейчас включен (идет SPLASH, INTRO, MENU и т.д.) по разному обрабатываются события - ведь у клавиши ESC должно быть несколько функций в разных "разделах".

Не совсем понял, где возникнут проблемы с Case.

FLAG : Integer;

Case FLAG of ...
И перебирать все 2-4 ляма значений?

UPD --------------------------

Хм... Тогда придется делать константы типа INTRO = $00
И делать так:
Activate(INTRO);

Ну хорошо. Как вариант.

[Utkin]

И перебирать все 2-4 ляма значений?

Зачем? У тебя и так Mess :LongWord; Ты же лямы сейчас не перебираешь?

[Stilet]

Что такое "лямы"?

[Utkin]

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

Что такое "лямы"?

Миллионы - он имеет ввиду большой диапазон значений от 0 до 4294967295

[Alex Cones]

Ты же лямы сейчас не перебираешь?

Тоже верно... В принципе так и сделаю. Спасибо.

Что такое "лямы"?

http://lurkmore.ru/9000


СТОП! А если режимов будет больше, чем бит в INTEGER?