ListView suchen

[DeddyH]

Ungetestet:

Delphi-Quellcode:

var gefunden: Boolean;
    i, j, 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
      else
        begin
          for j := 0 to Form3.ListView1.Items[i].SubItems.Count - 1 do
            if Form3.ListView1.Items[i].SubItems[j] = 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]);
                break; //einmal reicht wohl 
              end;
        end; 
      inc(i);
    end;
  if gefunden then
    Form15.ShowModal;
end;

Da wir nun aber 2 mal dasselbe tun, kann man über eine Unterprozedur nachdenken.