Не работает замена символа в Memo
Отчет в 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','')]
Но замена символа не работает. Подскажи плз причину. Синтаксически вроде все верно.
Блок описания 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','')]
Но замена символа не работает. Подскажи плз причину. Синтаксически вроде все верно.
Комментарии
Все равно не работает