Как создать QuickReport из содержимого TStringGrid

Question

Я использую Delphi 7 и QuickReports в Windows 7. Обычно QuickReports требует DataSet, сгенерированный запросом, но я хочу сделать отчет из содержимого StringGrid как хотя StringGrid представляет собой представление результатов запроса.

Как?

Answer 1

Используйте обработчик события QuickReport.OnNeedData. Он передает параметр var, называемый MoreData (логический); установка True означает, что он снова вызван. Оставьте свойство QuickReport.DataSource пустым и используйте простые элементы управления TQRText, а не TQRDBText.

// CurrLine is an Integer. In your case, it can represent a row in the StringGrid. 
procedure TPrintLogForm.QuickRep1NeedData(Sender: TObject; 
         var MoreData: Boolean); 
begin 
    MoreData := (CurrLine < StringGrid1.RowCount); 
    if MoreData then 
    begin 
    qrTextLine.Caption := StringGrid1.Cells[0, CurrLine]; 
    qrTextData.Caption := StringGrid1.Cells[1, CurrLine]; 
    Inc(CurrLine); 
    end; 
end; 

Answer 2

Я предполагаю, что набор столбцов фиксирован внутри StringGrid (и с соответствующим TClientDataSet). Шаг за шагом инструкции:

1. Бросьте TClientDataSet на форме
2. Doublic щелкните на TClientDataSet, нажмите клавишу INSERT на клавиатуре, чтобы добавить новое поле, добавьте одно поле для каждого из сетки-х колонны. Пример: COL1, String, 128 width.
3. Щелкните правой кнопкой мыши на TClientDataSet на форму и нажмите кнопку «Создать DataSet»
4. AT RUNTIME запустить этот вид кода:

 
    CS.Append; 
    CS['COL1'] := 'Whatever'; 
    CS['COL2'] := 'An other thing'; 
    CS.Post; 

Вам нужно сделать Append/Post в цикл, цикл по каждой строке в сетке. Вы можете назначить COL1, COL2 и т. Д. В другом цикле, или вы можете вручную его кодировать.