Kann Text in einem QRStringsband nicht anzeigen

[Duke_2004]

Der letzte Druck, den ich mit QRStringsbändern gemacht habe liegt zwar schon ne Weile zurück...aber egal...

Bei mir sah das damals ungefähr so aus;

Delphi-Quellcode:

procedure quickrep1.onneeddata(...);
var
  index: integer;

  procedure aus;
  begin
    stringsband1.enabled := false;
    stringsband2.enabled := false;
  end;

  procedure text1;
  begin
    moredata := true;
    stringsband1.enabled := true;
    //zuweisung irgendwelcher Texte
    //je nachdem wie oft er hier durchlaufen soll
    inc(index);
  end;

  procedure text2;
  begin
    moredata := true;
    stringsband2.enabled := true;
    //zuweisung irgendwelcher Texte
    //je nachdem wie oft er hier durchlaufen soll
    inc(index);
  end;

  begin
    case index of
      0: text1;
      1: text2;
      2: morerdata := false;
    end;
end;

War für mich das erste mal sehr kompliziert so zu bauen, aber der Vorteil (und die Bedingung) ist, dass man dem Quickreport kein! Dataset zuweist und sich alles selbst zusammenbastelt.

Man muss nur darauf achten, dass jedes Stringsband ein Wert in "Items" hat, sonst wirds net gedruckt...

Viel Spaß