Точки с запятой при перечислении

rbuilder

Подскажите, пожалуйста, каким образом можно реализовать подстановку точки или точки с запятой при выводе данных в бэнде.
Пример:
данные запроса:
пункт 1
пункт 2
пункт 3
в бэнде:
пункт 1;
пункт 2;
пункт 3.

gpi

В мемо напишите
[YourDataset."FieldName"];

rbuilder

gpi написал: »

В мемо напишите
[YourDataset."FieldName"];

Да, но в этом случае последняя запись будет с ";", а нужна "."
Пробовал сделать следующее:

procedure EWorksQEWORKNAMEOnBeforePrint(Sender: TfrxComponent);
var EWStr:string;                                     
begin
  EWStr:=Lowercase('- '+<EWorksQ."EWORKNAME">);            
  if <Line> < EWorksQ.RecordCount then EWorksQEWORKNAME.Text:=EWStr+';'
  else if <Line> = EWorksQ.RecordCount then EWorksQEWORKNAME.Text:=EWStr+'.';  
end;

но в везде только точки.
На сколько я понял, количество записей в наборе можно определить только после полной отрисовки в бэнде.
Возникает вопрос. Как сделать это до или во время вывода в бэнд.

PNP

if EWorksQ.Eof then
EWorksQEWORKNAME.Text:=EWStr+'.'
else
EWorksQEWORKNAME.Text:=EWStr+';'

rbuilder

В этом случае точка тоже не появляется. Только ";".

rbuilder

up!

g@ns

в memo пишеш
[IIF((YourDataset.RecNo+1) <> YourDataset.RecordCount , <YourDataset."YourField">+';', <YourDataset."YourField">+'.')]

rbuilder

Данный вариант не работает должным образом.
Везде только точки. По всей видимости не возвращается количество записей до начала отрисовки бэнда.
Бэнд второго уровня. Запрос выполняется с помощью TfrxFIBQuery.

g@ns

rbuilder написал: »

Данный вариант не работает должным образом.
Везде только точки. По всей видимости не возвращается количество записей до начала отрисовки бэнда.
Бэнд второго уровня. Запрос выполняется с помощью TfrxFIBQuery.

пример выложите, а то тогда немного непонятно что и где надо выводить :-)

Вот попробовал на 2-х уровнях правда FIB нету, но на TfrxODACQuery и TfrxADOQuery работает, вот пример