Благодарю всех за варианты и советы!!
Arioch, работает же, никаких violation уже с год у кучки народа. Просто ни разу. Т.е. с порядка нескольких десятков тысяч запусков.
если изменить вот так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
SelectSQL.Text := 'select c.ID, (SELECT FIOS FROM CONSTRUCTFIOSLIST(c.ID)) as AUTHLIST from TCATALOG c order by c.ID';
// SelectSQL.Add('select c.ID,');
// SelectSQL.Add('(with N as (');
// SelectSQL.Add(' select NAME');
// SelectSQL.Add(' from');
// SelectSQL.Add(' TFIOS t inner join SPFIOS s on s.ID=t.IDFIO');
// SelectSQL.Add(' where t.IDCAT = c.ID and t.idkind = 1');
// SelectSQL.Add(' order by NAME)');
// SelectSQL.Add('select list(NAME, '', '')');
// SelectSQL.Add('from N) as AUTHLIST');
// SelectSQL.Add('from TCATALOG c '); //order by c.ID
То все летает почти так же, как и из IBExpert.
CONSTRUCTFIOSLIST делает ровно то же самое, что и этот запрос с list, только без list, через перебор записей (через list в IBE чуть быстрее).
Т.о. вывод напрашивается - дельфийская составляющая, очень похоже, что ни при чем. То есть, естественно, при чем, но я имею ввиду весь орнамент, который Arioch выделил - он не при чем.
Никаких StringList там нет. Там TDictionary(Integer, String)
Зачем выделено в поток? Программа для библиотеки. Библиографы (их много) делают различные выборки постоянно. От пары-тройки публикаций до тысяч. Программа, получив один раз при запуске (в потоке, чтобы не было задержек запуска) списки авторов для всех публикаций, при запросах выборок очень быстро работает. Списки просто рисуются в OnGetDataText. Предыдущая версия собирала списки при каждом запросе, разница очень заметна.
Я тупо не знал про list, когда делал ))) недавно вот узнал, хотел "оптимизировать", а оно вононоче ))
