ActiveDelphi

[feferrari]

licença galera! sou novo aqui no forum, ai vai minha pergunta...

Tenho 3 colunas no ListView, Preciso salvar na tabela todos os registros de cada coluna, a primeira coluna ja consegui colocar. Ai vai o codigo;


for x := 0 to ListView1.Items.Count-1 do
begin

qryMusicas2.Append;
qryMusicas2.FieldByName('artista').Value := CBnome2.Text;
qryMusicas2.FieldByName('album').Value := CBalbum2.Text;
qryMusicas2.FieldByName('ano').Value := CBano2.Text;
qryMusicas2.FieldByName('genero').Value := CBgenero2.Text;
qryMusicas2.FieldByName('data').Value := date;
qryMusicas2.FieldByName('musica').Value := ListView1.Items.Item[x].Caption;

qryMusicas2.FieldByName('duracao').Value := Item.SubItems[1];
qryMusicas2.FieldByName('tamanho').Value := Item.SubItems[2];

qryMusicas2.Post;

Mas as duas ultimas linhas referente ao subitems sempre retorna com erro.

Não achei no forum respostas para o meu problema, ficarei muito grato se me ajudarem, este problema esta atrasando meu projeto.

Obrigado!

[feferrari]

Da uma força ae galera...

vlw...