Pos, PosEx, Delete - RichEdit säubern Chaos

[p80286]

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) and (PosReturn1<>Posreturn) then 
    begin
      Delete(Text, PosReturn1, Length(StringAfter));
      Delete(Text, PosReturn, Length(StringBefore));
    end;
  end;
  Result:=Text;
end;

wenn die Bedingung ist, daß "test" und "test1" in der Zeile stehen sollen, dann sollte das auch im Source auftauchen.

Gruß
K-H