Поиск

← →
TrollXP (2003-12-10 11:34) [0]

Доброе время суток! Подскажите как реализовать отбор в ListBox, если я ввожу имя в Edit, т.е. если в ListBoxе написано один, огурец, вода и т.п., то при вводе в Edit "о" остались только один и огурец.

← →
Stas (2003-12-10 11:55) [1]

Procedure SearchListBox (ListBox:TListbox;Text:String);
Var i,n:Integer;
begin
n:=length(text);
For i:=0 to listbox.Items.Count-1
do begin
if UPPERCASE(text)=uppercase(Copy(Listbox.items[i],1,n)) then
begin
listBox.ItemIndex:=i;
exit;
end;
end;
end;

← →
Тролль (2003-12-10 16:10) [2]

Что-то не работает твой пример!

← →
Erik (2003-12-10 16:57) [3]

Он неподставил удаление элемента.

← →
TUser (2003-12-10 17:18) [4]

А ежели его поставить - то нумерация элементов поменяется. Поэтому делай так
1. вместо for пиши while и инкреминируй i только в том случае, если ничего не удалялось.
2. заноси все найденные элементы в отдельный динамический массив, но заноси туда не i, а i-length(yourindexarray)-1. Потом все удаляй.
3. в цикле for после удаления элемента проверяй вновь возникший на его месте, т.е.
for i:=0 to length(ar)-1 do while UPPERCASE(text)=uppercase(Copy(Listbox.items[i],1,n)) do // здесь удаляй элемент массива
Ну, можно еще какие-нибудь способы выдумать.

← →
Тролль (2003-12-15 15:52) [5]

2 TUser
Вот я тут 5 дней уже мучаюсь и никак не могу понять твой алгоритм. Может, объяснишь подробнее?

← →
Palladin (2003-12-15 17:51) [6]

var AllItems:TStringList; // хранишь исходный массив строк procedure TForm1.Edit1Change(Sender: TObject); var i:integer; begin LockWindowUpdate(ListBox1.Handle); ListBox1.Clear; for i:=0 to AllStrings.Count-1 do if AnsiUpperCase(Copy(AllStrings[i],1,Length(Edit1.Text)))=AnsiUpperCase(Edit1.Text) then ListBox1.Items.Add(AllStrings[i]); LockWindowUpdate(0); end;

← →
Тролль (2003-12-18 12:58) [7]

Спасибо. У меня был такой вариант, но я не смог его продумать. Тут такой вопрос: я так понял, что при добовление строк (AllItems.Add) строки не добовляются, а замещают старые. Так вот, а если использовать другой ListBox, это не повлияет на скорость?

← →
TUser (2003-12-18 13:17) [8]

1. Вроде должно работать так. Берем первый элемент, если первые буквы (n = length(text)) совпадают с точностью до их заглавности, то этот элемент надо удалить. Если удалили - то на его место встанет новый элемент, следовательно опять преоверяем, пока не окажется, что на этом месте остался элемент, который не надо удалять. для этого цикл while. (Его вообще-то неплохо бы записать, как while (...) and i<ListBox1.Items.Count), а то можно нарваться на AV). как только это случилось проевереяем след. элемент списка - для этого нам for.
2. Add добавляет строки в конец. На скорость не повляет, но можно скорость работы немного увеличть, если написать with ListBox1 do ... . Хотя, много ты не выиграешь, если длина списков в пределах разумного.

← →
Тролль (2003-12-18 16:52) [9]

2 TUser
Впринципе, я разобрался с кодом, который предложил Palladin. Правда, опять возникли вопросы. У меня два лист бокса: информация для одного берётся для другого. Т.е. если копию Листа (в котором ещю), то надо делать копию и второго Листа (помошника). А если, допустим, элементов более 1000 (а мож и больше) как это отразится на скорости и загруженности? Спасибо.

← →
Тимохов (2003-12-18 17:11) [10]

Если у тебя 16 мГц 286, то может и отразиться.
На нормальном современном компе 1000, как и 10000, фигня.

Не фигня, когда есть время не n, а n в квадрате.

Т.е. любые линейные действия (т.е. сложности n) работают быстро.

ИМХО

Поиск Найти похожие ветки