Проблема с IBEvents в Delphi 6

← →
Andrey__ (2002-05-16 19:12) [0]

Скажите, как избавиться от автоматической сортировки списка событий в компоненте IBEvents для Delphi6? А то начали переводить на него свой проект с Delphi5, а там в обрабортчиках OnEventAlert определение сработавшего события происходит как:
case IBEvent.Events.IndexOf(EventName) of
0: ...
1: ...
end;
и теперь получается, что когда в 6-ке все события отсортировываются по имени, то необходимо изменять ВСЕ индексы в блоке case ... of ... end; а таких МОРЕ!

← →
Лёша © (2002-05-17 01:38) [1]

Создавай нужный порядок в RunTime.

Где-нибудь в FormCreate:

TStringList(IBEvent.Events).Sorted := False; With IBEvent.Events do begin Add("aaaaa"); Add("bbbbbb"); Add("cccccc"); Add("dddddd"); Add("eeeeee"); Add("aa"); end;

← →
Andrey__ (2002-05-17 19:14) [2]

Спасибо, опробую.

Проблема с IBEvents в Delphi 6 Найти похожие ветки