Скачать: CL | DM;

Поиск по строкам у комбоБокс   Найти похожие ветки 

← →
Relaxxx ©   (2003-09-01 16:29) [0]

У меня тут вот родилась идею. Я сделал программу где человек вводит ну например поставщиков в комбоБокс, сообветсвенно если находится схожесть первых букв КомбоБокс сразу переходит на ту запись. А вот если б такой прикол сделать но подстановка по корню. Вот например есть у меня поставщин Тумба-Юмба, человек начал вводить и видит что такого поставщика нет(а пролистать по полному списку облом, ну ленивый человек попался) насамом деле такой поставщик есть только называется ЗАО Тумба-Юмба.
Так вот такой вопрос, я хочу чтобы сначала подставлялось значение по первому нахождению, если нет такого то искало б корень в словах.

Вот я намутил вопрос, надеюсь понятно, если что нет пишите я уточню!

---

← →
Palladin ©   (2003-09-01 16:32) [1]

хм, функция Pos и вперед...

---

← →
Song ©   (2003-09-01 16:39) [2]

CB_SELECTSTRING - по первому вхождению
по "корню" - см. [1] Palladin © (01.09.03 16:32)

---

← →
nevalex ©   (2003-09-01 17:35) [3]

Function Search(S:String;listbox:Tlistbox;i:integer):Integer;
begin
Result:=0;
With ListBox.Items do
If Pos(S,Strings[I])>0 then Result:=I;
end;

Вот ...
Правда она для listbox`a ,но как её переделать,я думаю, ты разберешься :_)

---

← →
Song ©   (2003-09-01 20:33) [4]

> Function Search(S:String;listbox:Tlistbox;i:integer):Integer;
> begin
> Result:=0;
> With ListBox.Items do
> If Pos(S,Strings[I])>0 then Result:=I;
> end;
>
> Вот ...
> Правда она для listbox`a ,но как её переделать,я думаю,
> ты разберешься :_)


А цикл-то где? :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c