Søg i en listview collone.

http://www.swissdelphicenter.ch/en/showcode.php?id=947

Hej kroning, har virkelig ikke kunne få det til at virke bruger denne kode:

Min listview hedder (Listview1), og min edit hedder (Edit1)

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;

Jeg går ud fra at det er hele linien i din ListView1 du vil have selected?

I ObjectSelector sæt:
ListView1.HideSelection=false
og evt. ListView1.RowSelect=true

Og så skal Button1Click se sådan ud (Bemærk 2 i stedet for 1)

procedure TForm1.Button1Click(Sender: TObject);
begin
  LV_FindAndSelectItems(Listview1, Edit1.Text, 2);
end;

Jo det er hele linien i ListView1 collone 3. Det virker stadig ikke. :(

Har skiftet:
ListView1.HideSelection=false
ListView1.RowSelect=true

og den nye kode:
var
  lvItem: TListItem;
begin
  LV_FindAndSelectItems(Listview1, Edit2.Text, 2);
  Listview1.SetFocus;
end;

Har fået det til at virke nu. :)

Men skal skrive hele navnet før den finder den. Vil gerne have hvis man fx skriver (gade) finder den (nøregadevej).

Så kan du bruge Pos i stedet for AnsiCompareText


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

procedure TForm1.Button1Click(Sender: TObject);
begin
  LV_FindAndSelectItems(Listview1, Edit1.Text, 2);
end;

Du sku en klog man kroning! :D
Det virker bare, skriv en kommentar så du kan få dine point.

Du ved vel ik lige til sidst hvordan man vælger den sidste items i min listview? ;)

Den sidste kan vælges således:

  ListView1.Items[ListView1.Items.Count-1].Selected:=true;
  ListView1.Selected.MakeVisible(false);