Народ нужна срочно помощь. Нужно реализовать поиск.
На форме есть один 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;
Зарание спасибо.