Wort in tmemo finden und text markieren

[Natcree]

Wenn ich mit diesem Code

Delphi-Quellcode:

var
  MemoText, SuchStr, suchStr2: String;
  FundPos, FundPos2: Integer;
begin
  MemoText:= Memo1.Text;
  SuchStr:= 'usr/';
  SuchStr2:= '/';
  FundPos:= Pos(SuchStr, MemoText);
  FundPos2 := PosEx( SuchStr2, MemoText, FundPos+1);
  if FundPos = 0 then exit; //Wort nicht gefunden
  Memo1.SetFocus;
  Memo1.Selstart:= FundPos-1;
  Memo1.Sellength:= FundPos2-1-FundPos; 
end;

usr/ hallo/ ins memo eingebe und die Procedure starte dan markiert er mir us und nicht das hallo

[mkinzler]

Pos/PosEx liefert die Position des 1. Buchstabens des Suchwortes, willst Du dies nicht mit markieren, musst du dessen Länge addieren

Delphi-Quellcode:

  Memo1.Selstart:= FundPos+Length(SuchStr)-1;
  Memo1.Sellength:= FundPos2-FundPos-Length(SuchStr);

[Natcree]

Danke habe es jetz hinbekommen ;)