Wort in tmemo finden und text markieren

[Natcree]

Hallo ich möchte aus einem TMemo ein wort Finden

das mache ich so

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
  MemoText,SuchStr: String;
  FundPos: Integer;
begin
  MemoText:= Memo1.Text;
  SuchStr:= 'Wort';
  FundPos:= Pos(SuchStr, MemoText);
  if FundPos = 0 then exit 
  else
  ...
end;

Nun mehr sollen die alle zeichen die nach diesem Wort kommen markiert werden und zwar bis das Wort2 kommt.

Wie kann ich das realisieren? hat jemand einen Tip???
Wie erhalte ich die Anzahl der Zeichen bis zum wort2 ?

[himitsu]

SelStart, SelLength und nicht vergessen, daß es 0-indiziert ist.

[mkinzler]

Einfach nach dem Fund it PosEx() nach dem zweiten Wort suchen.

Word2 := PosEx( SuchStr2, MemoText, FundPos+1);

[Natcree]

Delphi-Quellcode:

Memo1.SetFocus;
  Memo1.Selstart:= FundPos +4;
  [COLOR="Yellow"]Memo1.Sellength:= Length(SuchStr);[/COLOR]
// WIe erhalte ich Hier die länge bis zum wort2?

Muss ich Word2 := PosEx( SuchStr2, MemoText, FundPos+1); bei memo1.Sellength:= Length(Suchstr); einsetzen?

[mkinzler]

Es wird der Index des 1. Buchstabens des 2. Suchwortes zurückgegeben.
Die Länge müsste dann dann Word2-1-FundPos; bzw. Word2-1-FundPos-Length(SuchStr) wenn zwichen Den Worten markiert werden soll; sein.

[Natcree]

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?

[mkinzler]

Was bedeutet nicht richtig?
Ohne Wörter:

Delphi-Quellcode:

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

Mit Wörter:

Delphi-Quellcode:

Memo1.Selstart:= FundPos;
Memo1.Sellength:= FundPos2-1-FundPos;

[himitsu]

Was hab ich wohl #2 geschrieben?

Delphi-Strings fangen standardmäßig bei 1 an (außer im NextGen),
aber vergessen wir das.

[Natcree]

wenn ich jetzt statt einem Wort1 --> Wort1/ der text soll markiert werden bis hier hin-->/

wie mache ich das dann?
hier funktioniert der code nicht

[mkinzler]

SelStart ist 0-basiert ( wie Frank schon bemerkt hat) d.h. man muss von der Position im String 1 abziehen.

Delphi-Quellcode:

Memo1.Selstart:= FundPos-1;
Memo1.Sellength:= FundPos2-1-FundPos;