String mit ListBoxitem löschen

[moperswings]

Hallo,

in habe in einer Listbox Items, wo es sich der Benutzer aussuchen kann, ob er in einem Memo einen oder mehrere Items löschen möchte aber
 Memo1.text := Stringreplace(Memo1.Text, Listbox1.Items.Text, '', [rfreplaceall, rfignorecase]); funktioniert nicht!
Weiss jemand, wie ich die Begriffe löschen kann?
Vielen Dank und Grüsse, moperswings

[Klaus01]

ich denke, das wirst Du für jedes Item der Listbox einzeln machen müßen.
In etwa so:

Delphi-Quellcode:

for i:= 0 to Listbox1.Items.Count -1 do
   memo1.Text:= StringReplace(Memo1.Text,ListBox1.Items.Strings[i],'',[rfreplaceall, rfignorecase]);

Denn StringReplace erwartet einen String als Suchbegriff und nicht eine StringListe/Text.

Grüße
Klaus

[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;

[moperswings]

LÄUFT!
Vielen Dank und ich wünsche Euch ein schönes Wochenende!

Grüsse, moperswings