![]() |
|
#1
|
|||
|
|||
![]() поиск в листбох ?
|
#2
|
||||
|
||||
![]() Код:
Items.indexof('... — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
![]() Цитата:
как сделать чтобы при введение в Edit было найдено совпаденные симбволы другие исчезли у меня такой код для поиска при введения в edit3 находит и отображает первый элемент, который начинается с заданной строки , но когда очисту edit3 не отображается старые введенные стороки помогите пожалуста Код:
procedure TForm1.Edit3Change(Sender: TObject); var i,k: Integer; s: array of String; begin SetLength(s,listbox1.Items.Count); if edit1.text <> '' then begin k:=-1; for i:=0 to listbox1.Items.Count-1 do if Pos(edit1.text,listbox1.Items.Strings[i])>0 then begin Inc(k); s[k]:=listbox1.Items.Strings[i]; end; if k>=0 then begin listbox1.Clear; for i:=0 to k do listbox1.Items.Add(s[i]); end ; if edit3.Text='' then ................................... end ; end; lmikle: пользуемся тегами!!! Последний раз редактировалось M.A.D.M.A.N., 02.04.2014 в 13:49. |
#4
|
||||
|
||||
![]() Цитата:
|
#5
|
|||
|
|||
![]() Цитата:
а как сделать ? помоги брат |
#6
|
|||
|
|||
![]() помогите сделать поиск в лисбох
у меня код такой Код:
procedure TForm1.Edit3Change(Sender: TObject); var i,k: Integer; s: array of String; begin SetLength(s,listbox1.Items.Count); if edit1.text <> '' then begin k:=-1; for i:=0 to listbox1.Items.Count-1 do if Pos(edit1.text,listbox1.Items.Strings[i])>0 then begin Inc(k); s[k]:=listbox1.Items.Strings[i]; end; if k>=0 then begin listbox1.Clear; for i:=0 to k do listbox1.Items.Add(s[i]); end ; if edit3.Text='' then ................................... end ; end; Последний раз редактировалось Admin, 02.04.2014 в 19:14. |
#7
|
||||
|
||||
![]() проехали...
Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 02.04.2014 в 19:52. |
#8
|
||||
|
||||
![]() Вот вам вариант с фильтром:
Код:
procedure TForm1.Edit3Change(Sender: TObject); var i: Integer; begin ListBox1.Items.BeginUpdate; ListBox1.Clear; for i := 0 to SrcList.Count - 1 do if Copy(SrcList.Strings[i], 1, Length(Edit3.Text)) = Edit3.Text then ListBox1.Items.Add(SrcList.Strings[i]); ListBox1.Items.EndUpdate; end; procedure TForm1.FormActivate(Sender: TObject); begin SrcList := TStringList.Create; SrcList.Assign(ListBox1.Items); end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 03.04.2014 в 00:19. |