Tfrxdbcrossview

отредактировано 04:07 Раздел: FastReport 4.0
Имеем процедуру:
procedure ReadReportsCaptions( AfrxReport: TfrxReport );
var
  Index: Integer;
  MemoText: string;
begin
  with AfrxReport.Pages[1] do
    for Index := 0 to AllObjects.Count - 1 do
      if TfrxView( AllObjects[Index] ) is TfrxMemoView then
      begin
        if ( TfrxView( AllObjects[Index] ) as TfrxMemoView ).Tag = 1 then
        begin
          MemoText := ( TfrxView( AllObjects[Index] ) as TfrxMemoView ).Memo.Text;
          if Length( MemoText ) > 0 then
            ( TfrxView( AllObjects[Index] ) as TfrxMemoView ).Memo.Text := ErgoFastLocalizer.ReadCaption( ( TfrxView( AllObjects[Index] ) as TfrxMemoView ).Name, ( TfrxView( AllObjects[Index] ) as TfrxMemoView ).Memo.Text );
        end;
      end;
end;

В нее надо воткнуть обработку всех TfrxMemoView из TfrxDbCrossView, который лежит в отчете.
Отличительная черта этих TfrxMemoView - свойство Tag = 1.
Это могут быть заголовки Row, Column или TotalData, GrandTotalData

Каким образом добраться до свойства Text этих самых TfrxMemoView в TfrxDbCrossView из RunTime.

Перепробовал много вариантов - почему-то свойство читает как пустую строку.
Помогите, плиз.

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

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