funktionen zum drucken mit hilfen von qreport

[cell]

Delphi-Quellcode:

frmfriktionstest.qrlbldatumaus.Caption:=lbldatum.Caption;
     frmfriktionstest.qrlbltestnummeraus.Caption:=lblmerker.Caption;
     frmfriktionstest.qrlblbemerkungaus.Caption:=mobemerkung.Lines.GetText;
     frmfriktionstest.qrlblbelagsmaterialaus.Caption:=lblmaterialbelag.Caption;
     frmfriktionstest.qrlblscheibenmaterialaus.Caption:=lblmaterialscheibe.Caption;
     frmfriktionstest.qrlblverschleissbelag.Caption:=lblbelagverschleiss.Caption;
     frmfriktionstest.qrlblverschleissscheibe.Caption:=lblscheibeverschleiss.Caption;
     frmfriktionstest.qrlblreibwertges.Caption:=lblreibwertgesamt.Caption;
     frmfriktionstest.qrlblreibweg.Caption:=lblreibweggesamt.Caption;
     frmfriktionstest.qrlblmittelwert21.Caption:=strgddaten.Cells[1,1];
     frmfriktionstest.qrlblmittelwert22.Caption:=strgddaten.Cells[1,2];
     frmfriktionstest.qrlblmittelwert23.Caption:=strgddaten.Cells[1,3];
     frmfriktionstest.qrlblmittelwert24.Caption:=strgddaten.Cells[1,4];
     frmfriktionstest.qrlblmittelwert25.Caption:=strgddaten.Cells[1,5];
     frmfriktionstest.qrlblmittelwert26.Caption:=strgddaten.Cells[1,6];
     frmfriktionstest.qrlblabweichung21.Caption:=strgddaten.Cells[2,1];
     frmfriktionstest.qrlblabweichung22.Caption:=strgddaten.Cells[2,2];
     frmfriktionstest.qrlblabweichung23.Caption:=strgddaten.Cells[2,3];
     frmfriktionstest.qrlblabweichung24.Caption:=strgddaten.Cells[2,4];
     frmfriktionstest.qrlblabweichung25.Caption:=strgddaten.Cells[2,5];
     frmfriktionstest.qrlblabweichung26.Caption:=strgddaten.Cells[2,6];
     frmfriktionstest.qrlbltrend21.Caption:=strgddaten.Cells[3,1];
     frmfriktionstest.qrlbltrend22.Caption:=strgddaten.Cells[3,2];
     frmfriktionstest.qrlbltrend23.Caption:=strgddaten.Cells[3,3];
     frmfriktionstest.qrlbltrend24.Caption:=strgddaten.Cells[3,4];
     frmfriktionstest.qrlbltrend25.Caption:=strgddaten.Cells[3,5];
     frmfriktionstest.qrlbltrend26.Caption:=strgddaten.Cells[3,6];

das sind meine werte die ich einlese
und die daten der Diagramme sind Zufallswerte

ähmmm was meinst du mit Form downloaden wie geht das??
[edit]

[Sourcemaker]

Wenn du eine Antwort erstellst kannst du ein Attachment hinzufügen.
Bitte füge die Unit (pas) und das Formular (dfm) an.

[cell]

gemacht

[Sourcemaker]

Genau das habe ich befürchtet erst redest du von Datenquellen und dann ist nichts zugewiesen
geschweige denn Quellcode um den Report ohne Datenquellen zu benutzen.
Du mußt damit das Detailband ausgegeben wird ein OnNeedDataEvent erzeugen:

Delphi-Quellcode:

procedure Tfrmfriktionstest.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
   lFirst := True;
end;

procedure Tfrmfriktionstest.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
   MoreData := lFirst;
   lFirst := False;
end;

Dieser Code sollte dafür sorgen das der Report einen Datensatz (Detail) ausgibt.

Ich gehe davon aus das es nur um einen Datensatz geht ?

[cell]

wie weist der bitte einen wert zu ??? zu setzt ja nur lfirst erstmal true und dann auf false ???
wie soll der einen wert bekommen ??

[Sourcemaker]

Normalerweise würde man in NeeadData über eine Datenquelle, Array, Stringliste etc. laufen
da du offentsichtlich keine derartige Datenquelle hast und nur einen Detailsatz ausgeben willst/kannst
sorgt das lFirst das in BeforePrint gesetzt wird das das Detailband einmal aufgerufen wird.
Die Daten die in den Diagrammen stehen sollen kannst du auch in diesen Moment zuweisen.