function TForm1.FindInSubItems(const S: String; ListView: TListView; Col: integer = 0):TListItem; var I: integer; begin Result := nil; with ListView do begin //Vérifier que l'on est pas hors limites ! if (Col < 0) or (Col > Items[0].SubItems.Count - 1) then exit; for i := 0 to Items.Count - 1 do if Items[i].SubItems[Col] = S then begin Result := Items[i]; Break; end; end; end;
procedure TForm1.btnFindInSubItemsClick(Sender: TObject); begin ListView1.Selected := FindInSubItems(Edit1.Text, ListView1) end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.btnFindInSubItemsClick(Sender: TObject); var I, J: integer; begin with ListView1 do for i := 0 to Items.Count - 1 do for j := 0 to Items[i].SubItems.Count - 1 do if Items[i].SubItems[j] = Edit1.Text then begin Selected := Items[i]; Exit; end; end;