delphi - 一定の開始文字と終了文字を持つ可変長の文字列を検索します

Question

重複の可能性:
Delphi のタグ間の変数部分文字列のすべてのインスタンスを削除する

これはおそらく非常に基本的なことですが、何らかの理由で理解できません。定数の最初と最後の文字で始まる文字列をリッチ テキスト編集で検索する必要があります。ドキュメントは次を使用します。

<sometextofvariablelength>

動的検索および置換機能のワイルドカードとして。ドキュメントを印刷する直前に、テキストをすばやく解析し、ドキュメントにまだ残っている <> で囲まれたものをすべて削除する必要があります。

私が実際に助けを必要としているものを明確にするため。特定の文字 (この場合は「<」) を検索し、次の「>」を探してその文字列全体を削除する方法を知る必要があります。

更新: 提案された回答の使用:

function ClearWildCards(const s: string): string;
var
    I, J: integer;
begin
    Result := s;
    I := 1;
    repeat
        I := PosEx('<', Result, I);
        if I = 0 then
            Break;
        J := PosEx('>', Result, I + 4);
        if J = 0 then
            Break;
        Delete(Result, I, (J + 3) - I);
    until False;
end;

その後

DocPreview.Text := ClearWildCards(DocPreview.Text);

必要に応じてワイルドカードを実際にクリアしますが、別の問題が発生します。ドキュメントの書式がすべて失われます。