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

dz128

Нужно вывести в отчет матрицу 10хn.(10 колонок, n строк)
Каким макаром ее можно вывести в отчет?

-=Serg=-

Подробнее

dz128

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

dz128

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

-=Serg=-

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

dz128

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

dz128

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

dz128

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

-=Serg=-

Пример:

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

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

dz128

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

-=Serg=-

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

написал:

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

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

dz128

пробовал одновременно: указал в свойстве
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#] не печатается???