Wie funktioniert Rave ??????

[WoTo]

Hallo zusammen,
ich versuche schon den ganzen Vormittag mit Hilfe von Rave den Inhalt einer StringList auszugeben.

Ich habe auf dem Formular eine TRvProjekt- und eine TRvCustomConnection-Komponente plaziert.

Folgenden Code habe ich dann noch geschrieben:

Delphi-Quellcode:

procedure TForm1.RvCustomConnection1GetCols(Connection: TRvCustomConnection);
begin
  Connection.WriteField('Meter',dtfloat,10,'Meter','');
  Connection.WriteField('Meter3',dtfloat,10,'Meter3','');
end;

procedure TForm1.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
var
  TankValue : TTankValue;
  i : integer;
begin
  for i := 0 to Pred(FTank.ValueList.Count) do
  begin
    TankValue := TTankValue(FTank.ValueList.Objects[i]);
    Connection.WriteFloatData('Meter',TankValue.VAlue[0]);
    Connection.WriteFloatData('Meter3',TankValue.VAlue[1]);
  end;
end;

Nachdem ich das Programm gestartet habe, habe ich mit Hilfe des Rave-Wizard eine SimpleTable erstellt.

Wenn ich nun das Rave-Projekt starte, so werden unendlich viele Seiten generiert.

Warum ist das so ?

[merlin17]

don't panic <g>

Delphi-Quellcode:

procedure TForm1.RvCustomConnection1GetRow(Connection: TRvCustomConnection); 
begin 
    Connection.WriteFloatData('Meter',TankValue.VAlue[0]); 
    Connection.WriteFloatData('Meter3',TankValue.VAlue[1]); 
  end; 
end;

der rest wird mit RvCC.open/next/eof der CustomConnection geregelt (suche hier einmal nach CC!)


thomas, TeamNevrona

[WoTo]

Hallo Merlin17,

vielen Dank, jetzt funzt es.

Nun kommt aber das 2.Problem:

Ich möchte ein TChart ausdrucken. Dabei habe ich mir den Tip von der Nevrona-Seite angesehen und genauso programmiert.
Leider meckert der Compiler bei dem Befehl WriteChartData(), den kennt der Compiler anscheinend nicht.
Die Hilfe ist leider, wie so oft, keine Hilfe.

Ich verwende Delphi2005 Prof. und Rave Version 6.0.1 (BE).

Muß ich noch irgendweine Unit einbinden ?

MfG
Woto

[merlin17]

Zitat:

und genauso programmiert.

wirklich ??????

siehe erste zeile vom example:

uses
RPTChart;



thomas, TeamNevrona

[WoTo]

ich sollte für heute aufhören

Entschuldigung ! und vielen Dank !

MfG
Woto

[WIng2005]

Habe mir auch mal nen kleinen Report zusammengebaut,
und gemäß einiger Beispiele und Threads hier im Forum alles gemacht.
Wenn ich nun meine Report starte, bekomme ich nun auch unendlich viele Seiten....

Hier mal mein Code:

Delphi-Quellcode:

Procedure Rep_FPL();
var datei:string;
begin
with mainform do
Begin
  datei:='S:\Eigene Dateien\Project1.rav';
  rvproject1.ProjectFile:=datei;

  rvproject1.open;
  rvproject1.Execute;
  rvproject1.Close;

end;//with mainform
end;

procedure Rep_fpl_GetCol(Connection: TRvCustomConnection);
Begin
  connection.WriteField('teilenr',dtString,20,'',''); 
end;

procedure Rep_fpl_GetRow(Connection: TRvCustomConnection);
Begin
  connection.WriteStrData(mainform.STGRPFPL2_UE_1.Cells[0,zeile], '');
end;

procedure Rep_fpl_next(Connection: TRvCustomConnection);
begin
  inc(zeile);
end;

procedure Rep_fpl_open(Connection: TRvCustomConnection);
begin
  zeile:=2;
  connection.datarows:=mainform.STGRPFPL2_UE_1.rowcount;

end;

Ziel ist es, (erstmal) eine Spalte des Grids (STGRPFPL2_UE_1) zu ducken. Wenn ich im Databand1 des angehangenen Reports die
MaxRows eigenschaft auf z.B 10 setze, funzt alles. Trage ich hier jedoch den Wert 0 ein, ist das ergebnis unbrauchbar. Leider kann ich vorher nicht sagen, wieviele Zeilen mein Grid hat.
Bin echt am Ende.........

MFG
Steffen

[merlin17]

so auf die schnelle: ich vermisse das EOF-Handling in dem CC-Bereich von dem CodeSchnipsel....

thomas, TeamNevrona

[WIng2005]

Sorry, hatte ich vergessen anzuhängen:

Delphi-Quellcode:

procedure TMainForm.RvCustomConnection1EOF(Connection: TRvCustomConnection;
  var Eof: Boolean);
begin
eof:=(zeile>50); 
end;

MFG
Steffen

[WIng2005]

Alles klar...genau beim EOF lag das Problem.... ich sollte "Zeile" schon global machen...

Trotzdem danke!!!!!!!!!!!


MFG
Steffen

[WIng2005]

OK, soweit nun also so gut.
Nun entsteht (und ich bin mit meinen Nerven bald am Ende) folgendes Problem:

Wenn ich versch. DataText-Felder einfüge, kann ich als DataField keine neuen Felder Definieren.
Wo kann ich denn einem DataView neue Datenfelder vergeben?


MFG
Steffen

P.S. Sorry, wenns eigentlich garnicht mehr zum Thread passt.