Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#5

Re: "RichEdit" Cursorposition in einem Wort

  Alt 10. Nov 2009, 22:43
Delphi-Quellcode:
function CursorPosInWord(str : String; CursorPos : Integer) : Integer;
begin
  Result := CursorPos;
  while (Result > 1) and (not (str[Result] in [#13,#10,#09,' '])) do
    dec(Result);
end;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat