Quickreport Eingabenrealisierung

[omata]

Moin,

leider funktioniert das Anhängen von Dateien zur Zeit nicht.

Deshalb versuch ich es mal so...

Hauptunit:

Delphi-Quellcode:

:
:
implementation

{$R *.dfm}

uses QRUnit; 

procedure TForm.ButtonClick(Sender: TObject);
var QR:TQuickReport2;
    Zeilen:TStringList;
begin
  Zeilen:=TStringList.Create;
  try
    Zeilen.Append('1. Zeile');
    Zeilen.Append('2. Zeile');
    Zeilen.Append('3. Zeile');
    QR:=TQuickReport2.create(Self, Zeilen);
    try
      QR.Preview;
    finally
      QR.free;
    end;
  finally
    Zeilen.free;
  end;
end;

QuickReport-Unit:

Delphi-Quellcode:

unit QRUnit;
:
:
  public
    constructor create(AOwner:TComponent; AZeilen:TStrings); reintroduce;
  end;
:
:
implementation

{$R *.DFM}

{ TQuickReport2 }

constructor TQuickReport2.create(AOwner: TComponent; AZeilen: TStrings);
begin
  inherited create(AOwner);
  QRStringsBand1.Items:=AZeilen;
end;

procedure TQuickReport2.QRStringsBandBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  QRLabel.Caption:=QRStringsBand1.Item;
end;

Auf dem Quickreport ist ein StringBand und auf diesem ein QRLabel einzufügen.

Wichtig: Über Projekt -> Optionen ist die QRUnit als verfügbares Formular einzurichten.

MfG
Thorsten