Pos, PosEx, Delete - RichEdit säubern Chaos

[Jacques Murell]

Moin,

ich musste feststellen ich stehe gerade vollkommen auf dem Schlauch.
Ich habe ein Richedit, in welchem Text steht. Kann zum Beispiel zu aussehen:

Zitat:

bumm test kopp test1 gfrsfr
dfgbdbvb testlopptest1 vfrvwrer

In dem Text kann beliebig oft "test XYZ test1" vorkommen. Ich möchte nun das "test" und "test1" vor und nach dem beliebigen String aus dem Text rauslöschen. Mit StringReplace mache ich es deshalb nicht, da ich die genauen "Koordinaten" von dem beliebigen Text also XYZ in dem Beispiel brauche um nach der Attribute zu ändern.

Hab mir das so gedacht: While Schleife solange test gefunden wird -> Suche nach test1 -> Löschen von test und test1. Aber irgendwie häng ich grad fest, genau wie mein Programm, dass hängt sich nach der Ausführung nämlich leider komplett auf. Jemand ne Idee?

Delphi-Quellcode:

function ClearEdit(StringBefore, StringAfter, Text: String): String;
var
  PosReturn, PosReturn1: Integer;
  temp: String;
begin
  while Pos(StringBefore, Text) <> 0 do
  begin
   PosReturn := Pos(StringBefore, Text);
   PosReturn1 := PosEx(StringAfter, Text, PosReturn);
      if PosReturn1 <> 0 then
       begin
        //ShowMessage(IntToStr(PosReturn));
        Delete(Text, PosReturn, Length(StringBefore));
        Delete(Text, PosReturn1, Length(StringAfter));
        result := Text;
        //Break;
       end;
  end;
end;