...Text in einer TListView suchen?

// Call FindCaption Method to search for a list view item labeled by the
// string specified as the Value parameter

// Die Methode FindCaption gibt ein Element der Listenansicht mit der
// angegebenen Beschriftung zurück, wenn ein solches existiert.

// Syntax:

function FindCaption(StartIndex: Integer; Value: string;
  Partial, Inclusive, Wrap: Boolean): TListItem;


// Example, Beispiel:

procedure TForm1.Button1Click(Sender: TObject);
var
  lvItem: TListItem;
begin
  lvItem := ListView1.FindCaption(0,      // StartIndex: Integer;
                                  '99',   // Search string: string;
                                  True,   // Partial,
                                  True,   // Inclusive
                                  False); // Wrap  : boolean;
  if lvItem <> nil then
  begin
    ListView1.Selected := lvItem;
    lvItem.MakeVisible(True);
    ListView1.SetFocus;
  end;
end;


// To search for a list view subitem (also for items), use this function:
// Funktion, um auch Subitems zu durchsuchen:

{
  Search for text in a listview item
  @Param lv is the listview, supposed to be in vaReport mode
  @Param S is the text to search for
  @Param column is the column index for the column to search , 0-based
  @Returns the found listview item, or Nil if none was found
  @Precondition  lv  nil, lv in report mode if column  0, S not empty
  @Desc The search is case-insensitive and will only match on the
  complete column content. Use AnsiContainsText instead of AnsiCompareText
  to match on a substring in the columns content.
  Created 14.10.2001 by P. Below
}

function FindListViewItem(lv: TListView; const S: string; column: Integer): TListItem;
var
  i: Integer;
  found: Boolean;
begin
  Assert(Assigned(lv));
  Assert((lv.viewstyle = vsReport) or (column = 0));
  Assert(S <> '');
  for i := 0 to lv.Items.Count - 1 do
  begin
    Result := lv.Items[i];
    if column = 0 then
      found := AnsiCompareText(Result.Caption, S) = 0
    else if column > 0 then
      found := AnsiCompareText(Result.SubItems[column - 1], S) = 0
    else
      found := False;
    if found then
      Exit;
  end;
  // No hit if we get here
  Result := nil;
end;

// Example call:
// Beispielaufruf:

procedure TForm1.Button1Click(Sender: TObject);
var
  lvItem: TListItem;
begin
  // Search subitem[0] for text from edit1
  // in der Spalte subitem[0] den Text aus Edit1 suchen
  lvItem := FindListViewItem(ListView1, Edit1.Text, 1);
  // if found, then show the item
  // falls item gefunden, dann anzeigen
  if lvItem <> nil then
  begin
    ListView1.Selected := lvItem;
    lvItem.MakeVisible(True);
    ListView1.SetFocus;
  end;
end;


// Function to search items and select if found
// Funktion, um Items zu suchen unda falls gefunden, sie danach markieren

procedure LV_FindAndSelectItems(lv: TListView; const S: string; column: Integer);
var
  i: Integer;
  found: Boolean;
  lvItem: TListItem;
begin
  Assert(Assigned(lv));
  Assert((lv.ViewStyle = vsReport) or (column = 0));
  Assert(S <> '');
  for i := 0 to lv.Items.Count - 1 do
  begin
    lvItem := lv.Items[i];
    if column = 0 then
      found := AnsiCompareText(lvItem.Caption, S) = 0
    else if column > 0 then
    begin
      if lvItem.SubItems.Count >= Column then
        found := AnsiCompareText(lvItem.SubItems[column - 1], S) = 0
      else 
        found := False;
    end
    else
      found := False;
    if found then
    begin
      lv.Selected := lvItem;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lvItem: TListItem;
begin
  // in der Spalte subitem[0] den Text aus Edit1 suchen
  LV_FindAndSelectItems(ListView1, Edit1.Text, 1);
  ListView1.SetFocus;
end;

printed from
www.swissdelphicenter.ch
developers knowledge base