Einzelnen Beitrag anzeigen

Igotcha

Registriert seit: 22. Dez 2003
544 Beiträge
 
Delphi 2006 Professional
 
#6

Re: [Rave] Report aus Records generieren?

  Alt 17. Sep 2004, 14:25
Sodele, das sieht soweit schon ganz gut aus, bis auf ein kleines Problem:

Ich kann jetzt im Designer von Rave die Daten aus meinen Records sehen, nur bekomme ich bei meiner Konstruktion der "Datenholung" eine Endlosschleife, da ich im Moment nicht dahinter komme, wie ich der Connection bzw. dem Report sage, dass er fertig ist. Die Methode mit DataRows setzen funktioniert in meiner Konstruktion nicht bzw. wird ignoriert, da anscheinend "onNext" Vorrang hat:

Delphi-Quellcode:
procedure TfrmMain.RvCustomConnection1GetCols(
  Connection: TRvCustomConnection);
begin
    Connection.WriteField('MyBezeichnung',dtString,40,'Bezeichnung','Test');
    Connection.WriteField('MyJAN',dtfloat,10,'JAN','');
end;

procedure TfrmMain.RvCustomConnection1GetRow(
  Connection: TRvCustomConnection);
begin
  With Connection do
  begin
    WriteStrData('',myPrintPrognose.FGBez);
    WriteFloatData('',myPrintPrognose.FMonat[3]);
  end;
end;

procedure TfrmMain.RvCustomConnection1First(
  Connection: TRvCustomConnection);
begin
     myPrintNode:=frmMain.TPROGNOSE.GetFirst;
     myPrintPrognose:=pPrognoseData(frmMain.TPROGNOSE.GetNodeData(myPrintNode));
end;

procedure TfrmMain.RvCustomConnection1Next(
  Connection: TRvCustomConnection);
begin
     myPrintNode:=frmMain.TPROGNOSE.GetNext(myPrintNode);
     if Assigned(myPrintNode) then
        myPrintPrognose:=pPrognoseData(frmMain.TPROGNOSE.GetNodeData(myPrintNode))
     else
        Tja, was soll hier hin???
end;
Im Einzelschrittmodus sehe ich, dass die Record-Einträge schön abgearbeitet werden, nur kann ich ihn nicht stoppen

Wenn Assigned(myPrintNode) false ist, soll er aufhören.

Gruß Igotcha
  Mit Zitat antworten Zitat