Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.399 Beiträge
 
Delphi 12 Athens
 
#5

AW: In RichEdit ganze Zeile einfärben

  Alt 15. Jun 2014, 14:56
PS: Dein Code hatte auch nie das gemacht, was du scheinbar wolltest.

Erstmal werden die Zeilenumbrüche mitgezählt und dein noChars := noChars + Length(RichEdit1.Lines[i]); hat Diese vergessen.

Wenn es kein HALLO gibt, dann wird dennoch etwas markiert, denn die Repeat-Schleife prüft ja erst am Ende. Stattdessen ein While am Anfang währe bestimmt besser.



Also, entweder suchst du wirklich in der Zeile, welche grade behandelt werden soll (EM_LINEINDEX),
oder du suchst alle Texte (FindText, so ähnlich, wie du es mit Repeat+CharPos schon gemacht hast), und markierst die zugehörige Zeile (EM_LINEFROMCHAR).
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (15. Jun 2014 um 15:19 Uhr)
  Mit Zitat antworten Zitat