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