Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#4

Re: Nummerierungs-Index abfragen

  Alt 3. Jun 2009, 00:25
Hallo,

Zitat von DJ-SPM:
... Nun habe ich mir gedacht, den letzten Index (B.) auszulesen und dann mit wNumberingstart, den Index+1 zu setzen...
...Vielleicht habe ich auch nur eine Eigenschaft übersehen. ...
denke das Du damit auf dem richtigen Weg bist, glaube nicht das Du eine Eigenschaft übersehen hast.

Wenn Du wNumberingstart jeweils + 1 setzt, kannst Du wNumberingstart der letzten Zeile auch wieder ermitteln, das stellt sich doch dann(wenn Du wNumberingstart erhöht hast) so dar:
Code:
keine Nummerierung: wNumbering = 0, dxStartIndent = 0
   A. wNumberingStart = 1, dxStartIndent = 200
   B. wNumberingStart = 2, dxStartIndent = 200
keine Nummerierung: wNumbering = 0, dxStartIndent = 0
   A. wNumberingStart = 1, dxStartIndent = 200
   B. wNumberingStart = 2, dxStartIndent = 200
      I.  wNumberingStart = 1, dxStartIndent = 400
      II. wNumberingStart = 2, dxStartIndent = 400
      III. wNumberingStart = 3, dxStartIndent = 400
   ?. wNumberingStart = ?, dxStartIndent = 200
In Pseudo-Code für Zeile 10:
-suche rückwärts bis Zeile(Absatz) mit dxStartIndent = 200 gefunden
-lese wNumberingStart
-setze Zeile(Absatz) mit wNumberingStart + 1
-Abbruch wenn dxStartIndent < 200
-dann setze wNumberingStart = 1
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat