listview

Har lavet en funktion, det er nemmere at vise her end med alle de knapper osv du skal smide på formen - nå, men den ser således ud:

procedure Slet(lv: TListView; ATekst: string);
var
  i: integer;
begin
  //Vi er nødt til at tælle baglæns, ellers så fucker den
  //listen op
  for i :=  Pred(lv.Items.Count) downto 0 do
  begin
   //Sammenligning og sletning hvis de er ens
   if lv.Items[i].Caption = ATekst then
    lv.Items[i].Delete;
  end;
end;

og du kan kalde den sådan her

  Slet(ListView1, Edit1.Text);

grunden til at jeg har valgt parameteren "lv: TListView;" er, at den så kan bruges til mange ListViews...

God Jul

Casper