Memo --> bestimmtes Wort löschen

[Helmi]

ich hab mal ein wenig weiter gemacht, wenn du ne schleife verwenden willst, vielleicht hilft dir das:

Delphi-Quellcode:

uses
  StrUtils;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Text := 'Hallo ... bla bla ... jkdfdjif ... Hallo ... blabla ... fneijf ... Bla Bla ...';

end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Search_Text = 'Hallo';

var
  i: Integer;
  Position: Integer;
  S: String;

begin
  Position  := 1;
  S         := Memo1.Text;

  for i := 1 to length(S) do
    begin
      Position := PosEx(Search_Text, S, Position);

      Delete(S, Position, length(Search_Text));
    end;

  Memo1.Text := S;
end;