FreeReport und StringGrids die drölfzigste

[Errraddicator]

Hi Uwe,

hab ich mal ausprobiert, aber das ändert irgendwie auch nix.
Vielleicht ist ja auch was an meinem Code falsch?


Variablen:
repPrinter ist das Report-Objekt.
repPreviewer ist das Preview-Objekt
repData ist das User-Data-Set

Hier der Funktionsteil, der das Preview anzeigt:

Delphi-Quellcode:

  // load report
  repPrinter.LoadFromFile('printReport.frf');

  // prepare report
  repMasterData := TfrBandView(repPrinter.FindObject('MasterData1') );
  if repMasterData <> nil then
  begin
    repMasterData.DataSet := 'repData';
  end;
  repData.RangeEndCount := grdData.RowCount - 1;

  // show report
  repPreviewer.Visible := true;
  repPrinter.ShowReport();

Hier der entsprechende Teil des Get-Value Handlers

Delphi-Quellcode:

    if ParName = 'Daten' then
    begin
      sValue   := grdData.Cells[0, (repData.RecNo+1)];
      sValue   := Copy(sValue, 1, 10);
      ParValue := sValue + #13#10;
    end;

Und hier das EOF-Event des frUserDataSets

Delphi-Quellcode:

  if repData.RecNo >= (grdData.RowCount - 1) then
    begin Eof := true; end
  else
    begin Eof := false; end;