[DELPHI]prendere item e subitem da listview

[funnylux]

Ciao
sto impazzendooo
ho una listview che viene popolata da un TOpenDialog in questo modo

  for i := 0 to openDialog1.Files.Count-1 do
    begin
  ListItem := ListView1.Items.Insert(i);
  ListItem.Caption := ExtractFileName(openDialog1.Files[i]);
  ListItem.SubItems.Text := ExtractFilePath(openDialog1.Files[i]);
  end; 

e fino a qui tutto ok... carica il tutto...
adesso dovrei una volta popolata al click concatenare i item e subitem e mandarli ad una variabile..
il problema è che di subitem viene preso solo il primo carattere
questo il codice

   mp3File := 
   Listview1.Items[Listview1.ItemIndex].SubItems.text[1+Listview1.ItemIndex]+
   Listview1.Items[Listview1.ItemIndex].Caption
   ; 

VVoVe:

[123delphi321]

premetto che non ho dimistichezza con listview

questo il mio dubbio:

quando assegni i valori fai cosi:

  ListItem := ListView1.Items.Insert(i);
  ListItem.Caption := ExtractFileName(openDialog1.Files[i]);
  ListItem.SubItems.Text := ExtractFilePath(openDialog1.Files[i]);

quando li leggi fai cosi:

   Listview1.Items[Listview1.ItemIndex].SubItems.text[1+Listview1.ItemIndex]+
   Listview1.Items[Listview1.ItemIndex].Caption

perche sommi 1??? SubItems.text[1 +Listview1.ItemIndex]

[funnylux]

perchè stranamente se non parto da +1 mi da errore

[123delphi321]

non saprei che dire, dovrei fare delle prove...

metto un listview su una form... posta il codice per caricare il listview e per effettuare la selezione

[funnylux]

//apro finestra dialogo per caricare file
procedure Tappsong.OpenDialog1CanClose(Sender: TObject; var CanClose: Boolean);
var i:integer;
    ListItem: TListItem;

begin
  for i := 0 to openDialog1.Files.Count-1 do
    begin
  ListItem := ListView1.Items.Insert(i);
  ListItem.Caption := ExtractFileName(openDialog1.Files[i]);
  ListItem.SubItems.Text := ExtractFilePath(openDialog1.Files[i]);
  end;
  if openDialog1.Files.Count<>0 then
    begin
      countSong;
      enablePopMenu(true);
    end;
end;


//al click apro una canzone
procedure Tappsong.songListClick(Sender: TObject);
begin
   mp3File := mp3File + ' - ' +
   Listview1.Items[Listview1.ItemIndex].SubItems.text[1+Listview1.ItemIndex]+
   Listview1.Items[Listview1.ItemIndex].Caption
   ;
   totSong.Caption := mp3File;
end; 

la listview non la creo runtime

  object ListView1: TListView
    Left = 8
    Top = 81
    Width = 601
    Height = 137
    Columns = <
      item
        AutoSize = True
        Caption = 'Nome File'
      end
      item
        AutoSize = True
        Caption = 'url'
      end
      item
        Caption = 'durata'
      end>
    ColumnClick = False
    ReadOnly = True
    RowSelect = True
    TabOrder = 8
    ViewStyle = vsReport
    OnClick = songListClick
  end 

[123delphi321]

mancano troppe cose per poter utilizzare questo codice...
es.: totSong ... countsong

non riesco a fare una prova cosi.

e poi io sto facendo confusione che componente e' TlistItem e il TListview.

non mi e' chiara.....

io per caricare il listview farei una cosa del genere...

  for i := 0 to openDialog1.Files.Count-1 do
    begin
     ListView1.Items.Add;
     ListView1.Items[ListView1.Items.Count-1].Caption:=ExtractFileName(openDialog1.Files[i]);
     ListView1.Items[ListView1.Items.Count-1].SubItems.Text:= ExtractFilePath(openDialog1.Files[i]);
  end;

[funnylux]

cmq il problema non è nell'inserire (quello fa il suo dovere).. ma nel prendere quello che inserito

[funnylux]

risolto....

   Listview1.Items[Listview1.ItemIndex].SubItems.[0]+
 // NON COSì  Listview1.Items[Listview1.ItemIndex].SubItems.text[1+Listview1.ItemIndex] 

In quel modo non specificavo quale subitems

[funnylux]

scusate... ma come si disabilita il beep al click di una riga?

[funnylux]

per disabilitare il beep di sistema

SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_SENDWININICHANGE);