Доступ к списку MemoView отчёта из программы

Комментарии

• Vano

  May 2004 отредактировано 19:21

  Pages - список страниц
  Objects - список объектов на данной страницы
  
  Т.е. оббегать все объекты на всех страницах нужно так:
  

  Pages[i].Objects[j]
  
• AlexGreG

  May 2004 отредактировано 19:21

  Пробую так:
  

  procedure TForm1.Button1Click(Sender: TObject);
  var view:TfrMemoView;
      i,j: integer;
  begin
    for i:=0 to r.Pages.Count do
    begin
      for j:=0 to r.Pages[i].Objects.Count-1 do
      try
        view:=TfrMemoView(r.Pages[i].Objects[j]);
        view.font.Size:=8;
      except
        on e: exception do;  
      end;
    end;
    r.ShowReport;
  end;
  

  
  Ошибка доступа к памяти.
• Danila

  May 2004 отредактировано 19:21

  А так вот помоему нагляднее
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  t: TfrMemoView;
  
  begin
  t := TfrMemoView(frReport1.FindObject('Memo5'));
  if t <> nil then
  t.Memo.Text:= ComboBox1.Text;
  
  Danila
• AlexGreG

  May 2004 отредактировано 19:21

  Опа! Нашёл баг!
  
  Нужно так:
  

  procedure TForm1.Button1Click(Sender: TObject);
  var view:TfrMemoView;
      i,j: integer;
  begin
    for i:=0 to r.Pages.Count-1  {<<} do
    begin
      for j:=0 to r.Pages[i].Objects.Count-1 do
      try
        view:=TfrMemoView(r.Pages[i].Objects[j]);
        view.font.Size:=8;
      except
        on e: exception do;  
      end;
    end;
    r.ShowReport;
  end;
  
• AlexGreG

  May 2004 отредактировано 19:21

  А помоему Danila не прчитал вопрос
• Sergey P.

  May 2004 отредактировано 19:21

  Да только тут переменная наверное не очень нужна, хотя это уже тонкости
  

  view:=TfrMemoView(r.Pages[i].Objects[j]);
  view.font.Size:=8;
  

  =

  TfrMemoView(r.Pages[i].Objects[j]).font.Size:= 8
  

  
  А вот может, кто подскажет, в каком событии TfrReport можно
  узнать непосредственное содержимое самого TfrMemoView. То есть, какой текст находится в Мемо после подстановки из DataSource, но еще до печати. Чтобы этот текст можно было изменить...
  Я вот что то не нашел такой возможности...
  
• Vano

  May 2004 отредактировано 19:21

  Эх, молодость, молодость ...
  
  Класс объекта кто проверять будет ?
  Потом опять FR виноватым останется ?
  

  procedure TForm1.Button1Click(Sender: TObject);
  var view:TfrMemoView;
     i,j: integer;
  begin
   for i:=0 to r.Pages.Count-1 do
     for j:=0 to r.Pages[i].Objects.Count-1 do 
      if r.Pages[i].Objects[j] is TfrMemoView then
       TfrMemoView(r.Pages[i].Objects[j]).font.Size:=8;
   r.ShowReport;
  end;