| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с IBEvents в Delphi 6 [D6, IB6.x]
Andrey__ © (2002-05-16 19:12:00)Скажите, как избавиться от автоматической сортировки списка событий в компоненте IBEvents для Delphi6? А то начали переводить на него свой проект с Delphi5, а там в обрабортчиках OnEventAlert определение сработавшего события происходит как:
case IBEvent.Events.IndexOf(EventName) of
0: ...
1: ...
end;
и теперь получается, что когда в 6-ке все события отсортировываются по имени, то необходимо изменять ВСЕ индексы в блоке case ... of ... end; а таких МОРЕ!
Andrey__ (2002-05-17 19:14:00) [1]Спасибо, опробую.
Лёша (2002-05-17 01:38:00) [2]Создавай нужный порядок в 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;
| |
