Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
Delphi 12 Athens
|
AW: In RichEdit ganze Zeile einfärben
15. Jun 2014, 15: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).
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
Geändert von himitsu (15. Jun 2014 um 16:19 Uhr)
|