Einzelnen Beitrag anzeigen

milpr

Registriert seit: 2. Jan 2013
Ort: Bamberg
8 Beiträge
 
Delphi 10.1 Berlin Starter
 
#1

Richedit Suche funktioniert nach Migration nicht mehr

  Alt 21. Jan 2017, 19:29
Hallo liebe Community,

Ich gehe gerade meine ersten Schritte in Delphi RAD 10.1, nachdem ich viele Jahre lang in Delphi 5 und Delphi 7 programmiert habe. Eine Migration eines von mir über die Jahre entwickelten Programmes nach Delphi 10.1 hat überraschend gut funktioniert. Jetzt habe ich aber auf den zweiten Blick doch Abweichungen und Fehler bemerkt. So habe ich in dem Programm eine Routine im Einsatz, die in einem Richedit (Form2.richedit1) ein Wort sucht und kursiv setzt. Diese Routine funktionierte bisher unter Delphi 7 tadellos. Unter Delphi RAD 10.1 werden aber die falschen Abschnitte kursiv gesetzt, Delphi setzt Wörter ca. 10 Zeichen nach dem zu suchenden Wort kursiv.
Ich habe dafür keine Erklärung, außer das "Selstart" eventuell irgendwelche Formatierungsanweisungen unterschlägt und daher nicht die richtige Stelle markiert.

Hat irgendjemand eine Idee, wie ich die Routine wieder zum Laufen bringe?

Danke für Euren Input!

Die Routine:


procedure Tform1.kursiv(SearchToken :string);
(* das zu formatierende Wort *)
var StringPos: integer;
begin

(* Position des gesuchten Wortes ermitteln *)
StringPos := Pos(SearchToken,form2.RichEdit1.Text);
if StringPos > 0 then
begin

(* SelStart-Zählung beginnt bei 0, daher 1 abziehen *)
form2.RichEdit1.SelStart := StringPos-1;
form2.RichEdit1.SelLength := Length(SearchToken);

(* formatieren *)
form2.RichEdit1.SelAttributes.Style := [fsItalic];
(* Cursor an Textanfang setzen und Markierung aufheben *)
form2.RichEdit1.SelLength := 0;
form2.RichEdit1.SelStart := 0;
end;
end;
Mike
  Mit Zitat antworten Zitat