Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi TRichEdit Absätze mitzählen (https://www.delphipraxis.net/133205-trichedit-absaetze-mitzaehlen.html)

hornse 27. Apr 2009 21:58


TRichEdit Absätze mitzählen
 
Hallo zusammen,
arbeite gerade an einer Möglichkeit Absätze eines RichEdit Dokuments mizuzählen, um sie später über ihre Nummerierung ansprechen zu können bzw. die Attribute des ausgewählten Absatzes auszulesen.
Wenn ihr also Ideen habt seid ihr herzlich willkommen......
Gruß und danke im vorraus
hornse

BullsEye 27. Apr 2009 22:06

Re: TRichEdit Absätze mitzählen
 
Hallo und Herzlich Willkommen in der DP :dp:

wie genau diffnierst du Absatz? Also jedes Mal, wenn in der Mitte der Zeile ende ist oder nach jeder Zeile?

Evtl könntest du einfach nur die Eingabe der "Enter" Taste abfangen, jedes mal um eines erhöhren und dann wieder ausgeben.

hornse 27. Apr 2009 23:08

Re: TRichEdit Absätze mitzählen
 
Danke für das Hallo und die schnelle Antwort.
Also für mich bedeutet, dass ein neuer Absatz beginnt, sobald die Return-Taste gedrückt wird. Startpunkt ist die erste Position in der neuen Zeile.
Bis jetzt habe ich die Möglichkeit einen neuen Absatz mit Hilfe eines Knopfes zu erzeugen, indem in RichEdit Dokument das passende Steuerzeichen ({\rtf1\par}) eingetragen wird.
Leider habe ich bis jetzt noch keine schöne Möglichkeit gefunden, die Absaätze nachher anzusprechen (z.B. absatz2.alignment := taleftjustify).
Hatte überlegt die erzeugten Absätze in einer Liste zu speichern und diese dann bei Bedarf auszulesen.
Aber da haperts bei mir.
Also bei Ideen, bin ich ganz Ohr.
Gruß
hornse

Lannes 27. Apr 2009 23:30

Re: TRichEdit Absätze mitzählen
 
Hallo,
  • an der aktuellen Cursorposition einen Zeilenumbruch einfügen:
    Delphi-Quellcode:
    RichEdit.SelText := #13#10;
  • damit findest Du z.B. das Ende des ersten Abschnitts, automatische Zeilenumbrüche sind im Richedit durch ein alleinstehendes #10 zu finden:
    Delphi-Quellcode:
    Pos(#13,RichEdit.Text);


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:45 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz