Wort in tmemo finden und text markieren

Thema durchsuchen

Ansicht

Themen-Optionen

Wort in tmemo finden und text markieren

Ein Thema von Natcree · begonnen am 14. Jun 2015 · letzter Beitrag vom 14. Jun 2015

Vorheriger Beitrag

Nächster Beitrag

Natcree

Registriert seit: 5. Mär 2013
502 Beiträge

Delphi 7 Enterprise

AW: Wort in tmemo finden und text markieren

14. Jun 2015, 22:48

wenn ich es so einsetze dann markiert er nicht richtig

markieren

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?