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ß
