Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];

Вниз

Как сделать перескок к нужному итему?   Найти похожие ветки 

 
Gnec ©   (2004-08-13 21:10) [0]

Драсьте.
Я пишу сриптовый редактор. У меня есть лист бокс с кучей команд, и мемо. Как мне сделать так что если пишеш код вручную в мемо, написал например пол команды, тогда лист бокс автоматически выбирает итем с командой подходящей под написанное??? Помогите плиз!


 
TUser ©   (2004-08-13 21:15) [1]

Memo1.OnKeyPress + поиск по итемам. Думаю, что в ListBox"e лучше сортировать, тогда поиск м.б. быстрым.


 
Gnec ©   (2004-08-13 21:17) [2]

а вот как организовать этот самый поиск? Извините если вопросы тупые, но в програмировании я ещё только начинаю разбираться :(


 
begin...end ©   (2004-08-13 21:23) [3]


> [2] Gnec ©   (13.08.04 21:17)


var
 I: Integer;

begin
for I := 0 to ListBoxName.Items.Count - 1 do
 if ListBoxName.Items[I] = {образец} then
   ListBoxName.ItemIndex := I;
end;


Другой вопрос, как из данных в Memo сформировать образец.
В общем случае это довольно сложно, ИМХО.


 
begin...end ©   (2004-08-13 21:27) [4]

Или так:
ListBoxName.ItemIndex := ListBoxName.Items.IndexOf("образец");


 
TUser ©   (2004-08-13 21:31) [5]

Только не [3]. Медленно.
хотя бы while
См. про бинарный и интерпляционный поиск в книгах по алгоритмам.


 
Gnec ©   (2004-08-13 21:33) [6]

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


 
begin...end ©   (2004-08-13 21:35) [7]


> [6] Gnec ©   (13.08.04 21:33)


> а вот чтоб он с половиной рукописной команды перескочил
> к подходящему итему

Ну тогда ищем строку в ListBox"е, начинающуюся с образца.
См. в справке описание функции Pos().


 
Gnec ©   (2004-08-13 21:47) [8]

ладно, прочитаю справку. может быть разберусь.



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

Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.033 c
3-1091625059
serg128
2004-08-04 17:10
2004.08.29
Как выгрузить в TStringList содержимое CLOB-поля в Oracle?


1-1092503974
Gnec
2004-08-14 21:19
2004.08.29
как сделать пакер ???


14-1092020150
Baron
2004-08-09 06:55
2004.08.29
Скорость на dial up


1-1092390174
Ale
2004-08-13 13:42
2004.08.29
Направление текста


4-1090172218
Makhanev A.S.
2004-07-18 21:36
2004.08.29
Как запустить службу сразу после её инсталляции?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский