Передача данных в FastReport

Комментарии

• -=Den=-

  April 2006 отредактировано 03:43

  написал:

  У меня такой вопрос! Есть отчет в котором имеется компонент IBXDatabase. Не подскажите как передать в переменную IBXDatabase.DataBaseName данные из Delphi?

  В скрипте:

  var
  DataBaseName:String;
  
  ...
  ..
  begin
  IBXDatabase.DataBaseName := DataBaseName;
  end.
  

  frxReport1.Script.Variables := 'DB NAME';
  
  или с помощью FindComponent:

  var
  Base:TfrxIBXDatabase;
  begin
  ..
  Base := frxReport1.FindComponent('IBXDatabase1') as TfrxIBXDatabase;
  Base.DatabaseName := 'DB NAME';
  ...
  end;
  

  написал:

  И есть ли возможность в FastReport прочитать данные из текстовго файла, как это сделать?

  Можно через TFileStream(из скрипта) или Memo.Text.Lines.LoadFromFile().
• gpi

  April 2006 отредактировано 03:43

  1. Используйте скриптовые переменные или переменные отчёта
  frxReport1.Script.Variables:=
  или
  frxReport1.Variables:=
  2. Можно прочитать в TStringList или прямо в Memo

  var sl: TStringList;
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
       sl:=TStringList.Create;
       sl.LoadFromFile('...');
  //обработка элементов sl
       Memo1.Lines.LoadFromFile('...');
       sl.Free;
  end;
  
• Абис

  April 2006 отредактировано 03:43

  Понял! Большое всем спасибо.