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