Как правильно в RUNTIME обработать OnGetValue

Комментарии

• DonLabs

  December 2005 отредактировано 07:12

  
  В догонку, так и не понял как в runtime назначить свойству TfrxMasterData.DataSet набор - "Одна строка", т.к. данные будут загружаться из переменной. Кто подскажет?
• Lex

  December 2005 отредактировано December 2005

  примерно так

  var
    myRowCount: integer;
    band: TfrxMasterData;
    Memo: TfrxMemoView;
    myText: TStringList;
  begin
    myRowCount := 3;
    Band := frxReport1.FindObject('MasterData1') as TfrxMasterData;
    Band.DataSet := nil;
    Band.RowCount := myRowCount;
    myText := TStringList.Create;
    try
      myText.LoadFromFile('c:\temp\text.txt');
      memo := frxReport1.FindObject('Memo1') as TfrxMemoView;
      memo.Text := myText.Text;
    finally
      myText.Free;
    end;
    frxReport1.ShowReport;
  end;
  

  
  и не забыть поставить растягивание у Memo1 и MasterData1
• DonLabs

  December 2005 отредактировано 07:12

  
  Thanks, it has helped me.