FastReport Beispiel gesucht

Karl-J

Hallo,

ich moechte ein kleines StringGrid (6*12) mit FastReport ausdrucken.
Leider finde ich kein Beispiel dafuer.
Kann mir jemand weiterhelfen?

viele Gruesse Karl

Th69

Hast du mal im Internet danach gesucht ("fastreport print stringgrid")? Laut Printing a TStringGrid sollte unter "FastReport Demos\PrintStringGrid" ein Beispielprojekt zu finden sein.

Karl-J

Hi,

ich hab jetzt zwar was gefunden, komme aber immer noch nicht weiter.
Vielleicht kann mir ja jemand sagen wo der Fehler liegt.

#include <vcl.h>
#pragma hdrstop

#include "gird.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma link "frxCross"
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::frxReport1BeforePrint(TfrxReportComponent *Sender)
{
 TfrxCrossView * CrossView = new TfrxCrossView(Sender);
	Variant RowIdx, ColIdx, Text;
	int filas = StringGrid1->RowCount;
	int cols = StringGrid1->ColCount;
	for(int i = 0; i<cols;i++ ){
		for(int j = 0; j <filas;j++){
			RowIdx = j;
			ColIdx = i;
			Text = StringGrid1->Cells[i][j];
			CrossView->AddValue(&RowIdx, 1, &ColIdx,1,&Text,1);
		}
	}

}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
frxReport1->ShowReport(true);
}
//---------------------------------------------------------------------------

Th69

Welcher Fehler denn?

PS: Und packe deinen Code in C++-Tags.

Karl-J

Welcher Fehler denn?

Zugriffsverletzung bei Adresse 00B70FF4 in Modul 'frx25.bpl'. Lesen von Adresse 00000116

PS: Und packe deinen Code in C++-Tags.

Tut mir leid, hab nicht aufgepasst.

Irgendwas mache ich falsch. Ich muß dazu sagen, das ich den Code auch nur aus einem Forum kopiert habe.

Nico D.

Hast du es schon einmal ohne Zeiger versucht?

CrossView->AddValue(RowIdx, 1, ColIdx,1,Text,1);