Дилемма с массивом

[Alex Cones]

 Procedure SetApplicationReaction(MessageCode : LongWord; Proc : THandlerProcedure);                // Set up application reactions.
 Var
  Found : Boolean;
  Index : Integer;
  I     : Integer;
 Begin
  Found := FALSE;                                                                                   // Initialize flag.
  If Length(Application.Handler) > 0 Then                                                           // If we have more, than 0 records, then...
   For I := 0 To Length(Application.Handler) - 1 Do                                                 // ...cycle for the same message code searching.
    If Application.Handler[I].MessageCode = MessageCode Then                                        // If found the same code, then...
     Begin
      Found := TRUE;                                                                                // ...set flag and...
      Index := I;                                                                                   // ...memorize index.
     End;
  If Found Then                                                                                     // If found, then...
   Begin
    Application.Handler[Index].Proc := Proc;                                                        // ...replace procedure...
   End 
  Else                                                                                              // ...else...
   Begin
    Index := Length(Application.Handler);                                                           // Make new index. 
    SetLength(Application.Handler, Index + 1);                                                      // Set length of handler.
    Application.Handler[Index].MessageCode := MessageCode;                                          // Set up message code.
    Application.Handler[Index].Proc        := Proc;                                                 // Set up procedure.
   End;
 End;

Для того, чтобы сделать процедуру, удаляющую обработчик по некоторому коду есть два варианта:
1) Добавить свойство булевского типа, которое будет показывать, включена обработка по этому сообщению или нет.
2) Сделать функцию, содержащую nop, которой замещать соответствующую в массиве.

Даже не знаю, что будет грамотней.

[GunSmoker]

А самый очевидный вариант - удалить элемент из массива?

[Alex Cones]

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

[Alex Cones]

Вот, кажись так.

 Procedure ClearApplicationReaction(MessageCode : LongWord); StdCall; Export;                       // Clear appliccation reaction.
 Var
  I : Integer;
  Index : Integer;
  Found : Boolean;
 Begin
  Found := FALSE;                                                                                   // Initialize flag
  If Length(Application.Handler) > 0 Then                                                           // If we have more, than 0 records, then... 
   For I := 0 to Length(Application.Handler) - 1 Do                                                 // ...cycle for the same message code searching.
    If Application.Handler[I].MessageCode = MessageCode Then                                        // If found the same code, then...
     Begin
      Found := TRUE;                                                                                // ...set flag and...
      Index := I;                                                                                   // ...memorize index.
     End;
  If Found Then                                                                                     // If found, then...
   Begin
    For I := Index To Length(Application.Handler) - 1 Do                                            // ...cycle for "right" elements.
     Begin
      If I = Length(Application.Handler) - 1 Then                                                   // If it is last element then...
       SetLength(Application.Handler, Length(Application.Handler - 1))                              // Delete unnecessary element.
      Else                                                                                          // Else...
       Begin
        Application.Handler[I] := Application.Handler[I + 1];                                       // Move element to the left.
       End;
     End;
   End;
 End;

[GunSmoker]

Если порядок не важен, то можно обменять с последним.

[Alex Cones]

Блин, точно, как то я не сообразил. Устал, наверное.

[veniside]

и если не стоит задача найти именно последний обработчик, то break; перед end; смотрелся бы логично:

Begin
      Found := TRUE;
      Index := I;
      break;
End;

[Alex Cones]

то break; перед end; смотрелся бы логично:

Если бы вы внимательно посмотрели на функцию добавления, что я выложил выше, то увидели бы, что ячейка с каким-то MessageCode может быть только одна, остальные будут замещать её, если имеют тот же код.

[veniside]

угу, видимо поэтому надо всегда прогонять весь цикл, игнорируя тот факт, что искомое может быть найдено уже в первом элементе.