Einzelnen Beitrag anzeigen

Natcree

Registriert seit: 5. Mär 2013
502 Beiträge
 
Delphi 7 Enterprise
 
#6

AW: Wort in tmemo finden und text markieren

  Alt 14. Jun 2015, 22:48
wenn ich es so einsetze dann markiert er nicht richtig

Delphi-Quellcode:
  MemoText:= Memo1.Text;
  SuchStr:= 'Wort1';
  SuchStr2:= 'Wort2';
  FundPos:= Pos(SuchStr, MemoText);
  FundPos2 := PosEx( SuchStr2, MemoText, FundPos+1);
  if FundPos = 0 then exit; //Wort nicht gefunden
  Memo1.SetFocus;
  Memo1.Selstart:= FundPos;
  Memo1.Sellength:= FundPos2-1-FundPos-Length(SuchStr);
wo ist der fehler?
  Mit Zitat antworten Zitat