ListView suchen

[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.