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?
