søge

Kode 

procedure TForm2.Button1Click(Sender: TObject);
var
 I:integer;
begin
listbox1.Clear;
For I:=0 to Form1.Listbox1.items.Count-1 do
 begin
  form1.Listbox1.ItemIndex:=I;
  if Pos(Edit1.text,form1.Listbox1.Items.Strings[I])>0 then
   ListBox1.items.Add(form1.Listbox1.Items.Strings[I]);

end;
end;

er der en måde man kan få denne søge funktion til at ikke tage hensyn til store og små bogstaver.

den kan f.eks. ikke finde noget hvis jeg skriver med småt. jeg skal skrive det præcis som det står i listboxen

Kode 

procedure TForm2.Button1Click(Sender: TObject);
var
 I:integer;
begin
listbox1.Clear;
For I:=0 to Form1.Listbox1.items.Count-1 do
 begin
  form1.Listbox1.ItemIndex:=I;
  if Pos(LowerCase(Edit1.text) ,LowerCase(form1.Listbox1.Items.Strings[I]))>0 then
   ListBox1.items.Add(form1.Listbox1.Items.Strings[I]);

end;
end;