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;