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

Артем Титов · January 2012

Отчет в 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','')]

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

gpi · January 2012

Попробуйте

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;

Артем Титов · January 2012

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;

Все равно не работает

gpi · January 2012

Приложите тестовый проект на основе стандартных компонентов Delphi, демонстрирующий проблему

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

Комментарии

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