Как передать массив в отчет
Мне нужно передать массив значений в отчет. Как это лучше сделать, и возможно ли это осуществить?
Извините за назойливость, но указанный в документации способ печати
var
ar: array[0..9] of Integer = (0,1,2,3,4,5,6,7,8,9);
procedure TForm1.Button1Click(Sender: TObject);
begin
ArrayDS.RangeEnd := reCount;
ArrayDS.RangeEndCount := 10;
frxReport1.ShowReport;
end;
procedure TForm1.frxReport1GetValue(VarName: String; var Value: Variant);
begin
if CompareText(VarName, 'element') = 0 then
Value := ar[ArrayDS.RecNo];
end;
не совсем то что хотелось.
Может автор подскажет, есть ли возможность передавать массив?
Извините за назойливость, но указанный в документации способ печати
var
ar: array[0..9] of Integer = (0,1,2,3,4,5,6,7,8,9);
procedure TForm1.Button1Click(Sender: TObject);
begin
ArrayDS.RangeEnd := reCount;
ArrayDS.RangeEndCount := 10;
frxReport1.ShowReport;
end;
procedure TForm1.frxReport1GetValue(VarName: String; var Value: Variant);
begin
if CompareText(VarName, 'element') = 0 then
Value := ar[ArrayDS.RecNo];
end;
не совсем то что хотелось.
Может автор подскажет, есть ли возможность передавать массив?