iBase.ru Forum

Ворос у меня такой

Я так понял что агрегирующих функций для concat'а текста
нет

Как написать UDF функцию на delphi для соединения текста записей

(У меня проблема возникла именно с агрегирующими функ. , т.е как передать уже имеющийся текст в функцию и прикрепить к нему следующий текст)

в запросе мне нужно примерно след.:

select main.sur, (select <CONCAT_STRING (fam.sur)> from fam where fam.idz=main.idz) as fam_ from from main

FireBird 1.5

Заранее спасибо

А не проще процедурой сделать?

mdfv писал(а):А не проще процедурой сделать?

Всмысле сделать временную таблицу и туда это все?

что-то вроде этого

mdfv писал(а):что-то вроде этого

Код: Выделить всё

for select sur,idz  from main 
into :sur,:midz
do
begin
  fam_ ='';  
  for select sur  from fam 
  where fam.idz=:midz
  into :fsur
  do
  fam_=fam_||fsur;

  suspend;

end

да да так
уже и начял делать

значит думаем правильно

shempeev писал(а):значит думаем правильно

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