Delphi Hilfe mit Parsen - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Hilfe mit Parsen

Ein Thema von Bernd29bln · begonnen am 7. Apr 2005 · letzter Beitrag vom 7. Apr 2005

Vorheriger Beitrag

Nächster Beitrag

Bernd29bln

Registriert seit: 28. Feb 2005
Ort: Berlin
281 Beiträge

Delphi 7 Professional

Hilfe mit Parsen

7. Apr 2005, 21:53

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.

zusammenfalten · markieren

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