Einzelnen Beitrag anzeigen

Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#4

Re: Suchen in TListView!

  Alt 3. Okt 2004, 18:50
Hi DJ-SPM,

ungetesteter Code:
Delphi-Quellcode:
procedure SucheText(SuchText: String);
var
  bMatch: Boolean;
  NewItem: TListItem;
  i, j: Integer;
begin
  for i := 0 to ListView1.Items.Count-1 do
  begin
    with ListView1.Items[i] do
    begin
      bMatch := False;
      if Pos(LowerCase(Suchtext),LowerCase(Caption)) > 0 then
        bMatch := True;
      for j := 0 to SubItems.Count-1 do
      begin
        if Pos(LowerCase(Suchtext),LowerCase(SubItems[j])) > 0 then
          bMatch := True;
      end;
      if bMatch then
      begin
        NewItem := ListView2.Items.Add;
        NewItem.Caption := Caption;
        for j := 0 to SubItems.Count-1 do
          NewItem.SubItems.Add(SubItems[j]);
      end;
    end;
  end;
end;
Erklärung: Der Code durchsucht alle Items und deren SubItems, und wenn der Suchbegriff enthalten ist (nicht case sensitive), so wird das Item in ListView2 hinzugefügt.

Greetz
alcaeus

PS: Code wurde nicht getestet oder compiliert.

[edit]da waren keine fehler im code[/edit]
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat