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

DonLabs

Нужно в RunTime (из консольного приложения) создать обработчик OnGetValue. В катором в переменную будет загружен текстовый файл.

Но самое интересное как программно назначить данную переменную объекту frxMemoView, который и будет отображать загруженный файл.

DonLabs

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

Lex

примерно так

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

Thanks, it has helped me.