Quickreport ohne Datenbank

[alefor19]

Hallöche also ich schreibe an einem Programm, meine berühmte billig Datenbank und ich wollte mal Fragen ob einer mir sagen kann wie ich die daten aus der listview in den Report (Also in TQRLabel) bringen kann Habe schonein Onneeddata Ereignis erzeugt aber wie komm ich dann weiter was muss ich dann machen ?? Kann mir da vieleicht mal einer helfen ?

[mkinzler]

Vielleicht wäre die Verwendung eine Memory-dDtaSets eien Option

[alefor19]

Kannste du das mal bitte näher erklären bin eigentlich ein n00b in sowas...

[mkinzler]

Es gibt verschiedene Komponenten (z.B. JvMemDataSet oder kbMemTable), welche eine Dataset nachbilden, die Daten aber nicht aus einer datenbank stammen, sondern im Speicher stehen

[alefor19]

Das klingt Interesant und in diese Komponente kann ich dann die listview einlesen lassen und über Datasource im Quickreport anzeigen lassen?

[mkinzler]

Über eine DataSource

[Jelly]

Eine eigentlich sehr interessante Frage von alefor19. Er bezieht sich ohne Zweifel auf diesen Beitrag.
Im Prinzip geht es doch darum, Daten die in irgendwelchen Listen existieren (TListView, TObjectList, TList, array of irgendwas) an Reportgeneratoren zu übergeben. Diese haben aber allesamt gemeinsam, dass sie nur mit TDataset ihre Daten herholen.

Deshalb würd mich auch brennend eine Lösung interessieren. Ich arbeite gerne intern mit irgendwelchen Listen. Und diese müsste man nun elegant in ein Dataset transferieren können um die Berichterstellung zu ermöglichen.

[alefor19]

Ja genau bezieht sich auf dieses Projekt und ich habe noch nirgends einen vergleichbaren ansatz gefunden wie hier grade mal sehen ob das so klappt aber wer noch mehr weiß immer nur her damit man kann nie genug wissen

[alefor19]

Weiß keiner mehr etwas zu den Quickreports wie ich das OnNeedData ergeignis erstellen muss was da rein kommt bin wirklich ratlos .....Hilfe.....

[alefor19]

Bis jetzt habe ich das Hinbekommen kann mir einer sagen was ich falsch mache

Delphi-Quellcode:

procedure TQuickReport2.QuickRepNeedData(Sender: TObject;
  var MoreData: Boolean);
begin
Moredata:=True;
end;

procedure TQuickReport2.QRLabel12Print(sender: TObject; var Value: String);
begin
QRLabel12.Caption:=Form1.ListView1.Column[0];
end;

Bitte !!!!!!!!!!!!!!!!!