Печать собственных данных

Комментарии

• -=Serg=-

  March 2005 отредактировано 22:55

  Подробнее
• dz128

  March 2005 отредактировано 22:55

  собственно, надо вывести матрицу в которой лежат числа.
  Предполагаю, что надо использовать объект frxUserDataSet, заполнить его run-time. проблема в том что я не могу понять, как заполнить его моими данными и как их потом вывести в отчет
• dz128

  March 2005 отредактировано 22:55

  я не нахожу никаких средств, которые позволили создать поля(колонки) и заполнить их данными. СУБД при этом не использую.
• -=Serg=-

  March 2005 отредактировано 22:55

  Читайте "Руководство программиста" стр. 11
• dz128

  March 2005 отредактировано 22:55

  читал. понятнее не стало.
• dz128

  March 2005 отредактировано 22:55

  можно пример кода? и описание процесса?
• dz128

  March 2005 отредактировано 22:55

  в метод OnGetValue вообще не входит.
  На экране просто пустой лист!!!
• -=Serg=-

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

  Пример:

  procedure TForm1.ArrayDSCheckEOF(Sender: TObject; var Eof: Boolean);
  begin
    Eof := n = 20;
  end;
  
  procedure TForm1.ArrayDSFirst(Sender: TObject);
  begin
    n:= 0;
  end;
  
  procedure TForm1.ArrayDSGetValue(const VarName: String;
    var Value: Variant);
  begin
    Value := n; (или любой другой метод получения нужного значения)
  end;
  
  procedure TForm1.ArrayDSNext(Sender: TObject);
  begin
    n:= n + 1;
  end;
  
  procedure TForm1.ArrayDSPrior(Sender: TObject);
  begin
    n:= n - 1;
  end;
  

  Смысл понятен? Здесь печатается список от 0 до 19.
  ArrayDS: frxUserDataSet.
  OnGetValue не используется.
• dz128

  March 2005 отредактировано 22:55

  а на бэнде что указывается?
  в объекте frxUserDataSet указал поле а1.
  вывел его на бэнд.
  плюс поле [Line#]
  Лист все равно пустой.
  при указании переменной per1 вываливается с ошибкой и требует fs_iilparser.pas
  Компилю под Builder6
• dz128

  March 2005 отредактировано 22:55

  плюс ни в один из описанных выше методов не входит.
• -=Serg=-

  March 2005 отредактировано 22:55

  Вы бенд привязали к UserDataSet?
  

  написал:

  а на бэнде что указывается?

  Имя поля. В GetValue можно проверять это имя (параметр VarName).
• dz128

  March 2005 отредактировано 22:55

  пробовал одновременно: указал в свойстве
  frxReport1->DataSet=frxUserDataSet1;
  и привязал бэнд к UserDataSet.
  так говорит не могу одновременно сделать.
  
  пробовал 2 варианта:
  1. указал в билдере frxReport1->DataSet=frxUserDataSet1; и снял привязку с бэнда
  так попадает в методы
  TWorkList::frxUserDataSet1First
  TWorkList::frxUserDataSet1Next
  TWorkList::frxUserDataSet1CheckEOF
  но при этом проходит мимо методов
  TWorkList::frxUserDataSet1GetValue
  TWorkList::frxReport1GetValue
  выводится заданное количество пустых листов(кол-во листов=).
  2. привязал бэнд. убрал свойство в билдере
  пролетает мимо ВСЕХ методов
  Выдается пустой лист
  
  На листе в отчете бэнд - мастер дата с 2 значениями:
  1. Поле из юзер дата а1,
  2. [Line#]
  Непонятно почему даже [Line#] не печатается???