Hilfe mit Parsen

[Bernd29bln]

Hallo,

Hab mir einen code gebastelt der einen Text aus einet txt parsen tut. Er Funcktioniert, sehr gut nur leider in einem memo wie bekomme ich die Texte in eine Listview die den style report hat untereinander.

Delphi-Quellcode:

 while (pos('harf="', s)>0) do
    begin


  a:=pos('harf="', s)+11;
  delete(s, 1, a);
  a:=pos('"', s);
  s2.Add( copy(s, 1, a-1) );
   end;
   Memo1.Lines.Text:=s2.Text;
   s2.free;
   ListItem := Form1.ListView1.Items.Add;  
   ListItem.Caption := memo1.Lines.Text;
end;

gruss