Не работает замена символа в Memo

отредактировано 10:23 Раздел: FastReport 4.0
Отчет в Delphi создается динамически.
Блок описания Memo :

with TfrxMemoView.Create(DataBand) do
begin
CreateUniqueName;
DataSet := drDataSet;
DataField := PrintedList.DataController.DataSet.Fields.FieldName;

if pos('_FLAG',DataField)>0 then
Text:='[IIF(<drDataSet."'+DataField+'">=1,''X'','''')]'; -- замена символа

Frame.Width:=1;
Frame.Typ:=[ftBottom,ftTop,ftLeft,ftRight];
Font.Name:='Arial';
Font.Size:=PrintedList.Font.Size;
StretchMode:=smMaxHeight;
SetBounds(LeftPos, 0, PrintedList.Columns.Width, 30);
VAlign := vaCenter;
end;
LeftPos:=LeftPos+PrintedList.Columns.Width;
end;

В итоге текст получается, такой:
[IIF(<drDataSet."TO_FLAG">=1, 'X','')]

Но замена символа не работает. Подскажи плз причину. Синтаксически вроде все верно.

Комментарии

  • gpigpi
    отредактировано 10:23
    Попробуйте
    DataField := PrintedList.DataController.DataSet.Fields[I].FieldName;
    if pos('_FLAG',DataField)>0 then
    begin
      Text:='[IIF(<drDataSet."'+DataField+'">=1,''X'','''')]';
      DataField := '';
    end
    else DataSet := drDataSet;
    
  • отредактировано 10:23
    gpi написал: »
    Попробуйте
    DataField := PrintedList.DataController.DataSet.Fields[I].FieldName;
    if pos('_FLAG',DataField)>0 then
    begin
      Text:='[IIF(<drDataSet."'+DataField+'">=1,''X'','''')]';
      DataField := '';
    end
    else DataSet := drDataSet;
    

    Все равно не работает :)
  • gpigpi
    отредактировано 10:23
    Приложите тестовый проект на основе стандартных компонентов Delphi, демонстрирующий проблему

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.