如何將List view項目添加到delphi數據集中？

Question

我正在開發發票系統

在我的應用程序有一個列表視圖，一個FastReport中，按鈕.. 時按下按鈕，報告應顯示在報告中 的所有項任何人都可以爲此提供最好的解決方案？

Answer 1

從例如PrintStringList從FastReport中的演示文件夾：

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;