Hallo,
es wird dadurch nicht besser; Seite bleibt auf allen Seiten auf 1, d.h. ich habe jetzt Seite 1 von 1, 1 von 2, 1 von 3, ...
Aber eigentlich sollte doch [TOTALPAGES] funktionieren, [PAGE#] funktioniert ja auch.
[TOTALPAGES] ist als Begriff bekannt und verursacht auch keine Fehlermeldung, nur er zählt nicht mit.
Das ist sehr merkwürdig.
Code: Alles auswählen
// Seitensteuerung
Seite := 1;
SeitenGruppe := [q_rep1."ID"];
if (ArrSG[SeitenGruppe] > [TOTALPAGES]) then
ArrSG[SeitenGruppe] := [TOTALPAGES];
if FinalPass then
begin
if ArrSG[SeitenGruppe] > 1 then
sText := Str([Seite]) + ' / ' + Str(ArrSG[SeitenGruppe])
else
sText := '1 / 1';
meSeite.clear;
meSeite.memo := sText;
end;
meLBSeite.memo := LB_Seite.memo;
meLBSeitenkopf.memo := LB_Seite.memo;
bdCBKopf.visible := True;
In einem Anderen Formular habe ich diese Zeilen in den Hauptdaten gefunden. Irgendwo hatte ich das mit dem Array auch schon mal gelesen, aber das habe ich bisher nicht hinbekommen. In dieses Array zählt er beim ersten Durchlauf wohl die Seiten rein, oder vielleicht habe ich das auch gar nicht verstanden.
![Rolling Eyes :roll:](./../images/smilies/icon_rolleyes.gif)
Im Seitenkopf ist auch noch etwas von diesem Array zu finden.
Code: Alles auswählen
// Seitenkopfverwaltung
Seite := [Seite] + 1;
// if (seite > [TOTALPAGES]) then
// seite := [TOTALPAGES];
if FinalPass then
begin
if ArrSG[SeitenGruppe] > 1 then
sText := Str([Seite])+ ' / ' + Str(ArrSG[SeitenGruppe])
else
sText := '1 / 1';
meSeitenKopf.clear;
meSeitenKopf.memo := sText;
end;
Wo dieses Array definiert (deklariert) wird ist mir nicht klar.
Ich bin auf jeden Fall verwirrt.
Mal sehen, vielleicht hat ja noch jemand eine Idee.