ListView suchen

[Larsi]

Wie kann ich in einer ListView suchen??? Vielleicht so, dass wenn man nach einen bestehenden eintrag sucht, dass dann die anderen ausgeblendet werden.

MFG Lars W.

[DeddyH]

In einer Schleife durchlaufen und vergleichen, was anderes wüsste ich nicht.

[Larsi]

kannste mir da n beispiel für geben ich kapier dat mit den schleifen nicht so richtig und wie kann ich denn ein listview item und ein edit überhaupt vergleichen???:(


MFG Lars W.
(das reimt sich^^)

[Larsi]

oder geht das nur über umwege

[DeddyH]

Ich verstehe nicht, was daran so schwierig sein soll.

Delphi-Quellcode:

gefunden := false;
for i := 0 to ListView.Items.Count - 1 do
  if ListView.Items[i] = Edit.Text then
    begin
      gefunden := true;
      break;
    end;

Oder ohne break mit einer while-Schleife:

Delphi-Quellcode:

gefunden := false;
i := 0;
while not gefunden and (i < ListView.Items.Count) do
  begin
    if ListView.Items[i] = Edit.Text then
      gefunden := true;
    inc(i);
  end;

[Larsi]

und wie geht das, dass der dann nur das ergebnis in nem neuen listview anzeigt???

[DeddyH]

Mit ListView.Items.Add auf dem anderen ListView. Evtl. vorher mit Clear alle Einträge löschen. F1 hilft ;)

[Larsi]

thx

[Larsi]

irgendwie kommen da ziemlcih viele fehler wenn ich das so ausführe zb das listitem und string nicht zusammen passt :(

[DeddyH]

Sry, mein Fehler. Ersetz mal eine Zeile

Delphi-Quellcode:

if ListView.Items[i] = Edit.Text then

in

Delphi-Quellcode:

if ListView.Items[i].Caption = Edit.Text then

[Larsi]

Delphi-Quellcode:

var gefunden: Boolean;
i: integer;
begin
gefunden := false;
i := 0;
while not gefunden and (i < Form3.ListView1.Items.Count) do
  begin
   if Form3.ListView1.Items[i].Caption = Edit1.Text then
      gefunden := true;

    Form15.ShowModal;
Form15.ListView1.Items.AddItem(Form3.ListView1.Items[i]);
inc(i);
  end;
end;

wenn ich das so mache gehts net :( Der zeigt in dem anderen ListView nichts an was mache ich da denn falsch??????

MFG Lars W.

[DeddyH]

Wie wäre es denn so?

Delphi-Quellcode:

var gefunden: Boolean;
    i: integer;
begin
  gefunden := false;
  i := 0;
  while not gefunden and (i < Form3.ListView1.Items.Count) do
    begin
      if Form3.ListView1.Items[i].Caption = Edit1.Text then
        begin 
          gefunden := true;
          Form15.ListView1.AddItem(Form3.ListView1.Items[i].Caption,Form3.ListView1.Items[i]); 
        end;
      inc(i);
    end;
  if gefunden then
    Form15.ShowModal;
end;

Überleg Dir mal, wo der Unterschied zwischen Show und ShowModal liegt.

[Larsi]

und wie kann ich die subitems von form3 zu form15 kopieren von dem zu suchenden eintrag

[DeddyH]

Ein bisschen Denkleistung kann man aber schon erwarten. Letzte Hilfe in dieser Sache:

Delphi-Quellcode:

var gefunden: Boolean;
    i, iCnt: integer;
    l: TListItem;
begin
  gefunden := false;
  i := 0;
  while not gefunden and (i < Form3.ListView1.Items.Count) do
    begin
      if Form3.ListView1.Items[i].Caption = Edit1.Text then
        begin
          gefunden := true;
          //Erstellen eines neuen ListItems 
          l := Form15.ListView1.Items.Add;
          //Zuweisung der Beschriftung
          l.Caption := Form3.ListView1.Items[i].Caption;
          //Kopieren aller SubItems
          for iCnt := 0 to Form3.ListView1.Items[i].SubItems.Count - 1 do
            l.SubItems.Add(Form3.ListView1.Items[i].SubItems[iCnt]);
        end;
      inc(i);
    end;
  if gefunden then
    Form15.ShowModal;
end;

Immer noch ungetestet meinerseits.