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

[SirThornberry]

Mit ListView.Items.Add erstellt man ein Item in einer Listview. diesem Item kannst du dann eine neue caption zuordnen. Oder alles in einem
  ListView.Items.Add.Caption := 'Deine Caption die Vorher eine Zeile im Memo war';

[Bernd29bln]

Wie kann ich den den code umbauen das es gleich in die Listview geht.


Gruss

[SirThornberry]

Delphi-Quellcode:

var i: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    ListView1.Items.Add.Caption := Memo1.Lines.Strings[i];

(untested)

[Bernd29bln]

Danke SirThornberry,

Funcktioniert super.

Gruss