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 ?