Главная страница
    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.46 MB
Время: 0.035 c
14-1092019326
kos
2004-08-09 06:42
2004.08.29
Что так никто и не скажет как заставить работать прогу на другом


6-1088508038
Andrey
2004-06-29 15:20
2004.08.29
Как запустить приложение по локальной сети?


3-1091793315
MORA
2004-08-06 15:55
2004.08.29
блокировка грида


6-1087757045
kibork
2004-06-20 22:44
2004.08.29
вопрос по сокету


14-1091792413
Bless
2004-08-06 15:40
2004.08.29
Чем просматривается формат djvu...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский