String mit ListBoxitem löschen

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  Memo1.Lines.BeginUpdate;
  for i := 0 to ListBox1.Items.Count - 1 do
    if ListBox1.Selected[i] then
      Memo1.Text := StringReplace(Memo1.Text,ListBox1.Items[i],'',[rfReplaceAll,rfIgnoreCase]);
  Memo1.Lines.EndUpdate;
end;