![]() |
|
#1
|
||||
|
||||
![]() Народ нужна срочно помощь. Нужно реализовать поиск.
На форме есть один ListBox и один Edit. В ListBox'e содержаться имена программ. А в Edit нужно ввести название. Только надо чтобы можно было вводить не полностью. Например в ListBox'e есть: { Borland Delphi 7 Acdsee Visual Basic } Я набираю в Edit1 "Borland" и должен высветится "Borland Delphi 7" т.е (ListBox1.ItemIndex:=at) Сама функция поиска реализована но только никак не могу сделать чтобы не полностью можно было вводить. Код:
//Edit1.OnChange var NeedString, str: String; All, at, srtlen, nslen : Integer; begin NeedString:=Form1.Edit1.Text; All := Form1.ListBox1.Items.Count; At := -1; repeat at:=at=1; str:=Form1.ListBox1.Items[at]; strlen:=Length(str); nslen:=Length(NeedString); if strlen<=nslen then begin {Ошибка в этой строке} if Copy(str,0,nslen)=NeedString then begin {вырезанный кусок} end; end; until at=all-1; end; Зарание спасибо. [ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user ![]()
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |