Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > ComboBox задачка.:-)

Автор: ConstantinXXX 4.4.2008, 21:59

Например я загрузил из блокнота список слов.
1) Вводим букву D, в выподающем меню поевляються все слова наченающиеся на D.
2) Нажимаю E, в выподающем меню поевляються все слова наченающиеся на DE.
3) Потом L, все на DEL
4) Потом H, все на DELH и т.д. (если в списке остаеться все го одна запесь DELHI 7, то автоматически вставляеться в строку.)
если удолили H, то возврощаеться выпопающий список на DEL и т.д.
---------------
p.s. Срочно нужно, просто уже голова болит от программирования сам недогоняю.:-( Если нетрудно, помогите. smile

Автор: Exai1e 4.4.2008, 22:49

ConstantinXXX,

Цитата

от программирования сам недогоняю.:-( Если нетрудно, помогите.smile

Программирование, это не кодинг, оно на том и построенно что бы думать и бедняжке голове устраивать хардкор smile

, ну что пришло в голову, проверяй набранную сроку по символам, и вывводи из списка, где у тя там он храниться не знаю, слова на набранные первые буквы, проверять можеш простейшим способом if copy... но думаю не самый лучше вариант smile

Автор: ConstantinXXX 4.4.2008, 23:11

Exai1e я тож думал чет типа

i:=length(combox1.text);

repeat
ooo:=copy(text,1,i);
if ooo:=combox1.text then ii:=1 else ii:=0;
...............
until ii=0;

срочно надо, а голова болит... smile

Автор: Данкинг 4.4.2008, 23:45

Не совсем в тему, но всё равно: пример поиска по первым буквам в запросе (AdoQuery), точнее, в его поле "ul"; процедура вызывается по Edit.OnChange, её параметр (sss) - Edit.Text. Для больших объёмов данных, конечно, не подходит.

Код


procedure TForm1.finder(sss: string);
var i,r,xx,yy:integer;
fff:string;
begin
r:=zapros.RecNo;
sss:=ansiuppercase(trim(sss));
if length(sss)=0 then exit;
zapros.First;
for i:=1 to zapros.RecordCount do
 begin
 fff:=ansiuppercase(zapros.fieldvalues['ul']);
 if copy(fff,1,length(sss))=sss then
   begin
   ///// делаем, что нам надо, если найдено
   exit;
   end;
 zapros.Next;
 end;
zapros.RecNo:=r;
end;

Автор: lukas 5.4.2008, 06:36

Код


AutoDropDrap := True;

[censored 6], у комбобокса уже есть это функционал...

Автор: MetalFan 5.4.2008, 18:18

Цитата(lukas @ 5.4.2008, 06:36

)

AutoDropDrap

шоето??
AutoCompete - знаю... AutoDropDown - знаю... AutoDropDrap

Автор: lukas 5.4.2008, 22:15

MetalFan, smile

Автор: ConstantinXXX 8.4.2008, 18:46

lukas спасиб, я уже нашел. Говорю ж голова болела. smile