请教一个QuickReport的菜鸟问题~~急啊~~~

Question

怎样才能在QuickReport打印出TStringGrid里面显示的数据呢~?这些数据不是从数据库里查询出来的,是手工输入进去的.

Answer 1

1.用临时表把数据取出来后再打印2.
procedure PrintStrings(Strings: TStrings);
var
  Prn: TextFile;
  i: word;
begin
  AssignPrn(Prn);
  try
    Rewrite(Prn);
    try
      for i := 0 to Strings.Count - 1 do
        writeln(Prn, Strings.Strings[i]);
    finally
      CloseFile(Prn);
    end;
  except
    on EInOutError do
      MessageDlg('Error Printing text.', mtError, [mbOk], 0);
  end;
end;
PrintStrings(Listbox1.Items);