Получить строки Tfrmmemoview. Срочно!

отредактировано 02:00 Раздел: FastReport 3.0
Добрый день!
Помогите решить проблему:
Есть отчет, сделанный в FastReport 3.24 и сохраненный в файл. Загружаю его из файла. Разбираю. Анализирую по частям. Дохожу до компонента TFrxMemoView. С помощью Report.Calc(Memo.Text) получаю уже готовый текст. Когда этот текст на 1 строку - все ОК. Но если текст длинный и делится на несколько строк, как увидеть все строки?

Привожу свой код:
var i: integer; s: string; Memo: TFrxMemoView;
     v: Variant;
     Rep: Rep: TFrxReport; fDS: TFrxDBDataSet;
     DS: TADODataSet;
...
    Rep := TFrxReport.Create(DS.Owner);

    fDS := TFrxDBDataSet.Create(DS.Owner);
    fDS.Name := 'DATA';
    fDS.UserName := 'Источник данных';
    fDS.DataSet := DS;

    Rep.LoadFromFile(ExtractFilePath(Application.ExeName)+'file');
    Rep.DataSets.Add(fDs);
    Rep.EnabledDataSets.Add(fDs);
    Rep.PrepareReport;
    ...

      for I:=0 to Rep.AllObjects.Count -1 do
      begin
        if TObject(Rep.AllObjects.Items[i]).ClassType = TfrxMemoView then
        begin
          Memo := TFrxMemoView(Rep.AllObjects.Items[i]);

          if (Memo.Printable) and (trim(Memo.Text) <> '') then
          begin
            v := Rep.Calc(Memo.Text);
            s := '';

            for c := 0 to VarArrayDimCount(v) -1 do
              s := s + VarToStr(V[c]);
            ...
          end;
        end;
      end;
Заранее спасибо!

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

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