如何在Delphi中将List视图项添加到数据集中?

时间:2014-05-08 07:34:37

标签: delphi delphi-7 delphi-xe fastreport

我正在开发发票系统

在我的应用程序中有一个listview,一个fastreport,按钮.. 按下按钮时,报告应显示报告中的所有项目 任何人都可以为此提供最佳解决方案吗?

1 个答案:

答案 0 :(得分:0)

来自FastReport' Demos文件夹的示例PrintStringList:

var
  Button1: TButton;
  StringDS: TfrxUserDataSet;
  frxReport1: TfrxReport;
  StringList: TStringList;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringDS.RangeEnd := reCount;
  StringDS.RangeEndCount := StringList.Count;
  frxReport1.ShowReport;
end;

procedure TForm1.frxReport1GetValue(const VarName: String; var Value: Variant);
begin
  if AnsiCompareText(VarName, 'element') = 0 then
    Value := StringList[StringDS.RecNo];
end;