Скачать: CL | DM;

Проблема с 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c