FastReport Beispiel gesucht



  • Hallo,

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

    viele Gruesse Karl



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



  • 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);
    }
    //---------------------------------------------------------------------------
    


  • Welcher Fehler denn?

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



  • 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.



  • Hast du es schon einmal ohne Zeiger versucht?

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

Log in to reply