String suchen und Zeile löschen?

[smart]

Ich möchte ein TMemo nach einem String durchsuchen. Wenn der String gefunden wurde, sollt die Zeile in der der String vorkommt gelöscht werden. Wie kann man im TMemo eine ganze Zeile löschen?
If Pos('123456', Memo1.Text) <> 0 Then Zeile_löschen...;

[malo]

Mir fällt grade nur der Umweg ein, jede Zeile des Memos einzeln zu durchsuchen. Also etwa so:

Delphi-Quellcode:

for i := 1 to Memo1.Lines.Count - 1 do // mit der Nummerierung hab ich es nicht so, da müsste man nochmal genauer schauen
  begin
    If Pos('123456', Memo1.Lines[i]) <> 0 Then Memo1.Lines[i] := '';
  end;

//edit: Abschließender Delphi-Tag eingefügt

//Edit2: Code nochmal überprüft, und eine Stelle korrigiert

[Khabarakh]

Zitat von malo:

Mir fällt grade nur der Umweg ein, jede Zeile des Memos einzeln zu durchsuchen. Also etwa so:

Delphi-Quellcode:

for i := 1 to Memo1.Lines.Count - 1 do // mit der Nummerierung hab ich es nicht so, da müsste man nochmal genauer schauen
  begin
    If Pos('123456', Memo1.Lines[i]) <> 0 Then Memo1.Lines[i] := '';
  end;

//edit: Abschließender Delphi-Tag eingefügt

//Edit2: Code nochmal überprüft, und eine Stelle korrigiert

Dann hast du aber eine Leerzeile, nimm besser TStringList.Delete:

Delphi-Quellcode:

for i := Memo1.Lines.Count - 1 downto 0 do
  if Pos('123456', Memo1.Lines[i]) <> 0 then
    Memo1.Lines.Delete(i);

[smart]

Zitat von Khabarakh:

Dann hast du aber eine Leerzeile, nimm besser TStringList.Delete:

Delphi-Quellcode:

for i := Memo1.Lines.Count - 1 downto 0 do
  if Pos('123456', Memo1.Lines[i]) <> 0 then
    Memo1.Lines.Delete(i);

Ja, dass ist die beste Lösung. Habt vielen Dank für die Antworten.