Listboxda metin arama

[kelaynak2]

Mtu sözlüğünü duymuşsunuzdur.Kelimeyi yazdıkça Listboxda ilgili sözcük seçili hale gelmektedir.Bunu açıklayacak olursak

Forma bir Tlistbox ve Tedit ekleyin.

Edit1 in onchange olayına yazılacak kod:

Kod: Tümünü seç

procedure TForm1.Edit1Change(Sender: TObject);
var
  nIndex : Integer;
begin
  nIndex := getItemIndex(Edit1.Text);

  if(nIndex > -1) then
  begin
    ListBox1.ItemIndex := nIndex;
                           
  end;
end;

getitemindex fonksiyonunu private alana koyun:

Kod: Tümünü seç

function TForm1.getItemIndex(i_strText : AnsiString) : integer;
var
  i : integer;
begin
  result := -1;
  for i := 0 to ListBox1.Items.Count -1 do
  begin
    //Looks for substring at pos 1 of the Item string.
    if(Pos(Trim(LowerCase(i_strText)),Trim(LowerCase(ListBox1.Items[i]))) = 1) then
    begin
      result :=i;
      break;
    end;
  end;
end;

hepsi bu kadar.