поиск по Listbox

[leonw]

Здравствуйте! как сделать поиск по ЛистБох если Буква или слово Которое я ищу находится в середине или в конце?

ListBox3.Perform(LB_SELECTSTRING,-1,longint(Pchar(Edit3.text)));

например "Гараж.Желтый.Металический".
т.е набрал ж.Ж= и курсор переместился на эту строчку или Металический.
Спасибо!

[bitSoft]

ispozlzuvai Pos,

[Shouldercannon]

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add('1');
  ListBox1.Items.Add('2');
    ListBox1.Items.Add('3');
      ListBox1.Items.Add('4');
        ListBox1.Items.Add('5');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to ListBox1.Items.Count - 1 do
  if ListBox1.Items[i] = Edit1.Text then
    ShowMessage(ListBox1.Items[i]);
end;

[leonw]

Shouldercannon - не, здеся он ищет слово целиком
а если надо найти середку слова
Спасибо!

[BOGGAD-BS]

Функция ищет первое совпадение в листбоксе и возвращает индекс строки в которой это совпадение находиться; если ничего не найдено возвращает -1:

function ListBoxFind(template:string; listbox:TListBox):integer;
var i,j:integer;
begin
for i:=1 to listbox.Count do
begin
     if Pos(template,listbox.Items.Strings[i])<>0 then 
          begin
          Result:=i;
          exit;
    end;
end;
Result:=-1;
end;

[CraftR14]

хм.. я делал так

procedure TForm1.Edit5Change(Sender: TObject);
var
  u:integer;
begin
  for u:=0 to ListBox1.Count-1 do
   if pos(AnsiUpperCase(Edit5.Text),AnsiUpperCase(ListBox1.Items[u]))>0 then
    begin
     ListBox1.Selected[u]:=true;
     exit;
    end;
end;

ищет вовремя изменения текста и не нада кнопочку поиск)

[BOGGAD-BS]

ListBox1.Selected[u]:=true;

хм.. это он чо тупо выделяет итемсы? а если этот итем уже изменён? с него выделение не снимаеться. А мой код можно поставить куда хошь. хоть в таймер хоть в onKeyPress))

[CraftR14]

Сообщение от BOGGAD-BS

хм.. это он чо тупо выделяет итемсы? а если этот итем уже изменён? с него выделение не снимаеться. А мой код можно поставить куда хошь. хоть в таймер хоть в onKeyPress))

попробуйте.

[ZuBy]

CraftR14, нужно сначала скинуть все выделения, потом уже ставить выделение на определенный item.

У тебя наверно не стояло MultiSelect, поставь и посмотри что будет

[leonw]

Спасибо!