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

Комментарии

• gpi

  June 2010 отредактировано 10:23

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

  June 2010 отредактировано June 2010

  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

  June 2010 отредактировано 10:23

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

  June 2010 отредактировано 10:23

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

  June 2010 отредактировано 10:23

  up!
• g@ns г. Харьков

  June 2010 отредактировано June 2010

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

  June 2010 отредактировано 10:23

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

  June 2010 отредактировано June 2010

  rbuilder написал: »

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

  
  пример выложите, а то тогда немного непонятно что и где надо выводить :-)
  
  Вот попробовал на 2-х уровнях правда FIB нету, но на TfrxODACQuery и TfrxADOQuery работает, вот пример