wrtpeeps

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, jvsimplexml;

type
  TForm1 = class(TForm)
    ListView1: TListView;

    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
xml : TJvSimpleXml;
n: integer;
artist: string;
title: string;
album: string;
li:TListItem;
begin
ListView1.Columns[0].Width := round(ListView1.Width / 3);
ListView1.Columns[1].Width := round(ListView1.Width / 3);
ListView1.Columns[2].Width := round(ListView1.Width / 3) -5;
ListView1.Columns[0].Caption := 'Artist';
ListView1.Columns[1].Caption := 'Title';
ListView1.Columns[2].Caption := 'Album';
xml:= TJvSimpleXml.Create(nil);
xml.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'daedalus.xml');
for n := 0 to xml.Root.Items.count -1 do
artist := xml.Root.Items.Item[n].Items.Value('artist');
title := xml.Root.Items.Item[n].Items.Value('title');
album := xml.Root.Items.Item[n].Items.Value('album');
li := ListView1.Items.Add;
li.Caption := artist;
li.SubItems.Add(title);
li.SubItems.Add(album);
end;





end;

end.