Einzelnen Beitrag anzeigen

EarlyBird

Registriert seit: 29. Mär 2007
235 Beiträge
 
#3

Re: "RichEdit" Cursorposition in einem Wort

  Alt 10. Nov 2009, 20:55
Danke,
das bringt mich auf den richtigen Weg.
Ich versuche es erstmal so.

Delphi-Quellcode:
Function CursorPosInWord(str : String; CursorPos : Integer) : Integer;
 var
 I : Integer;
 begin
   Result := -1;
     for I := CursorPos Downto 0 do
       begin
         if Word(str[I]) in [13, 32, 9, 188] then
           begin
             Result := CursorPos - I;
             break;
           end;
       end;
 end;
Sonderzeichen usw habe ich so auch noch nicht berücksichtigt
Wie würdet Ihr den Wortanfang suchen?
  Mit Zitat antworten Zitat