Pos, PosEx, Delete - RichEdit säubern Chaos

[-187-]

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

PS:

-Du musst erst "test1" löschen bevor du "test" löscht sonst bleibt "1" stehen...
-Result kannst du am Ende der Funktion beschreiben

Edit:
Der Grund das deine Schleife kann Ende hatte ist das du als Abbruchbedingung Pos('test', Text) <> 0 hattest und als Lösch Bedingung aber nach 'test1' gesucht hast. Wenn "test1" jetzt nicht mehr vorhanden hast, kann 'test' nicht gelöscht werden somit ist die Abbruchbedingung nie erfüllt.

[Jacques Murell]

Danke dir, da stand ich echt auf dem Schlauch.

[-187-]

Ordentliches debuggen und du könntest das Problem mit dem Schlauch in Griff kriegen

[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