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);

确实根据我的需要清除了通配符，但它产生了另一个问题。该文档将丢失其所有格式。