Memo Zeile(n) suche und kopieren

[Diablo9876]

Hallo ich hab da mal ne Frage.
In einer Memo steht zb:

Zeile 1: Hallo ich bin
Zeile 2: [e-mail]
Zeile 3:
Zeile 4: Freenet.de
Zeile 5:
Zeile 6: Robert Jansen
Zeile 7: [e-mail]

Jetzt möchte ich nach den string: 'aol.com' suchen und wenn ich den gefunden hab Den ganzen Inhalt der Zeile wodrin der string steht und die VORIGE Zeile in einer Listbox reinkopieren.

Also in der Listbox kommt dan drin:
Hallo ich bin
[e-mail]

Robert Jansen
[e-mail]

Wie mach ich das?

[Luckie]

Delphi-Quellcode:

for i := 0 to Memo1.Lines.count-1 do
begin
  if pos('aol.com', Memo1.Lines.Strings[i]) > 0 then
  begin
    Listbox1.Items.Add(Memo1.Lines.Strings[i-1];
    Listbox1.Items.Add(Memo1.Lines.Strings[i];
end;

Mal so aus dem Kopf. Aber wo war jetzt das Problem? :shock:

[Diablo9876]

Danke Lucky für deine schnelle Antwort

[Luckie]

Im Code fehlen allerdings zwei schließende Klammern, die darfst du selber suchen.

Und ich schreibe mich mit ie.