как получить доступ к объектам в runtime?

Комментарии

• Lex

  April 2006 отредактировано 08:59

  procedure TForm1.Button1Click(Sender: TObject);
  var
    Memo1: TfrxMemoView;
  begin
    Memo1 := frxReport1.FindObject('Memo1') as TfrxMemoView;
    Memo1.Text := '1111';
    frxReport1.ShowReport;
  end;
  

  
  ни каких ошибок, все работает
• IvanT

  April 2006 отредактировано 08:59

  Ну да, если из дельфы делать, то может быть. А мне это в самом отчете надо сделать!!!
• Lex

  April 2006 отредактировано 08:59

  в самом отчете просто
  Memo1.Text := '1111';
  
• IvanT

  April 2006 отредактировано 08:59

  Если бы!!! Сами эти объекты создаются динамически при выполнении отчета, и соответственно компилятору на стадии написания кода ничего об этих компонентах неизвестно, поэтому такой вариант не подходит.
  У меня динамически создается N-е количество memo, при этом их названия идут от 1 до N, например d1, d2, ..., dN.
  
  Так вот вопрос, как можно получить доступ к I-тому мемо.
  
  Я пробовал так:
  
  MemObj := Report.FindObject('''' + 'd'+ inttostr(i) + '''' ) as TfrxMemoView;
  
  а эта строка приводила в свою очередь к ошибке, описанной выше!!!
• Lex

  April 2006 отредактировано 08:59

  Где и как ты создаешь свои мемо?
• IvanT

  April 2006 отредактировано 08:59

  Значит мемо создаются после выбора соответсвующих опций на форме (в моем случае форма тоже находится в отчете) по нажатии кнопки...
  
  Код:
  
  
  qrRecordsCount.Open;
  qrRecordsCount.First;
  i:=1;
  while not qrRecordsCount.EOF do
  begin
  MxCode := <qrRecordsCount."Matrix_code">;
  MxName := <qrRecordsCount."Matrix_name">;
  inc(i);
  qrRecordsCount.next;
  end;
  
  N := i-1;
  
  for i:=1 to N do begin
  if ((page2.Paperwidth - 10) <= (170 + i * 20 + 20)) then
  page2.Paperwidth := page2.Paperwidth + 20;
  
  with TfrxMemoView.create(header2) do
  begin
  Parent := header2;
  align := 1;
  text := MxName;
  Name := 'm'+ inttostr(i);
  frame.typ :=15;
  width := 2 * 37.7953;
  height := 0.4 * 37.7953;
  left := 17 * 37.7953 + i * 2 * 37.7953;
  visible := true;
  color := $00FFFFDC;
  end;
  with TfrxMemoView.create(MasterData2) do
  begin
  Parent := MasterData2;
  align := 1;
  text := '';
  Name := 'd'+ inttostr(i);
  frame.typ :=15;
  width := 2 * 37.7953;
  height := 0.4 * 37.7953;
  left := 19 * 37.7953;
  visible := true;
  stretchmode := smMaxheight;
  end;
  i:= i+1;
  end;
• Lex

  April 2006 отредактировано 08:59

  похоже вот что тебе нужно(хотя не пойму зачем)
  
  Memo := TfrxMemoView(Report.FindObject('Memo1'));
  Memo.Text := 'asdfsdf';
  
• IvanT

  April 2006 отредактировано 08:59

  Ура. Заработало, спасибо!!!