Delphi. Оптимизация алгоритма.

[Serge_Bliznykov]

база с тремя таблицами для 3 уровней сложности весит в 7 раз меньше прошлой))) Крутяк.

ну и зря!
Зачем это деление на таблицы?! Я бы однозначно засунул всё в одну. добавил столбец с длиной слова + индекс по нему. И тогда в запросе можно было бы укзывать:
select * from ttt where длина_слова between МинимальнаяДлина и МаксимальнаяДЛина

p.s. я знаю, что практически в любой СУБД есть функция, возвращающая длину слова (LEN, LENGTH() и т.д.). Но введение дополнительного (избыточного) поля позволит увеличить во много раз скорость запросов по длине слова...

[Риндера]

Хм, можно и в одну... Но вот на счет запроса... Я не очень дружу с SQL, поэтому делаю так:

case difficult of
0: number := RandomRange(1,620);
1: number := RandomRange(621,1594);
2: number := RandomRange(1595,2019);
end;
AdoTable1.Locate('Num',IntToStr(number),[]);

и дальше уже работаю с этой записью.
Это плохо?

[Serge_Bliznykov]

прежде всего, хочу сказать, что когда я писал свой предыдущий пост (#11), я не обновил страничку и не увидел пост Stilet. Поэтому моё сообщение в некотором мысле повторило мысль Виталия...

дальше уже работаю с этой записью.
Это плохо?

ну, как Вам сказать.. А если из базы удалят слово. Всё?! Кирдык?! Надо переделывать код, ставить новые диапазоны?!
т.е. Вы делаете не очень хорошо. Но, если не трогать данные, то работать будет.
Но я бы переделал! чтобы можно было безболезнено добавлять.удалять слова!

[Риндера]

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

И все же Серж, куда я должна буду написать запрос на выборку одной-единственной записи и как с ней работать в дальнейшем?

+ индекс по нему

тоже не очень поняла.

[Stilet]

куда я должна буду написать запрос на выборку одной-единственной записи

Туда же куда и остальные запросы конечно же
Просто получишь таблицу с одной записью - всего-то.

тоже не очень поняла.

Для быстрого нахождения данных в БД создаются индексы - это таблицы, где указанные поля отсортированны. СУБД проходит по ним как по бинарному дереву, находя указатель на запись. В случае с фильтрацией находятся крайние границы фильтра, и выдается только те записи которые попали в эти границы, а поскольку индекс (таблица индексов) сортирован такой проход не займет много времени и сил у машины.

Что такое индексы и как они работают знаешь?

[Риндера]

Сообщение от Stilet

Что такое индексы и как они работают знаешь?

Нет

Как я поняла, надо сделать запрос в самой БД, а из программы этот запрос вызывать? А то помнится куда-то там в ADO-компоненты писали запросы, только не помню куда, как и зачем))))

[Serge_Bliznykov]

Риндера
Виталий всё правильно объяснил.
Индексы не надо указывать принудительно (по крайней мере во всех современных СУБД).
Пусть есть таблица Бугага. в ней есть числовое поле Длина. И пусть записей в этой базе миллион.
Так вот, делаем запрос
select * from Бугага where Длина = 100
Если индекса по Длина нет, то ядро СУБД будет перебирать ВСЕ записи (весь миллион) по одной и проверять, равно поле Длина 100 или нет. ну и отбирать нужные записи.
А при наличии этих самых индексов,если есть индекс по полю Длина
перебор будет идти только по индексу. Т.е. грубо говоря. программа сразу "узнает", если ли записи с величиной 100. если есть - то сразу получит ключ этой записи (т.е. сразу получит эту запись) и дальше будет получать все записи с Длиной равной 100 - не обращаясь к основной таблице с данными, только беря данные из индекса, где все номера записей есть и уже отсортированы по этому полю. Это,конечно, очень упрощённое, схематичное и условное объяснение. (на самом деле это всё намного сложнее, да и в разных СУБД по разному. В сущности этим (в том числе) и занимаются команды разработчиков СУБД - использовать эффективные средства отбора данных. Но позаботится об индексах должен именно разработчик структуры БД - ибо ему решать, по какому полю ему надо быстро и эффективно получать данные, а какие - информационные и в запросах участвовать не будут (ну, или если будут, то скорость запроса не так важна).
Это "азбука" разработки БД...

а из программы этот запрос вызывать?

Вы меня пугаете...
А как Вы раньше его вызывали?!
нужно через компонент (например, ADOQuery) получить набор данных запросом
например,

select top 1 * from words where WordLength => 8 order by rnd(ID)

кстати, что такое Индекс можете почитать
тут - Википедия: Индекс (базы данных)
и
ещё одна статья на Википедия

[Stilet]

Риндера

Тогда тебе сюда:http://www.programmersforum.ru/showthread.php?t=1589
Ну и стартуя отсюда изучать Базы Данных до перепосинения.
Можно так же почитать Тома Кайта, он хоть и пишет про Оракл но оч. серьезно.

[Риндера]

Спасиба... Х_Х

А как Вы раньше его вызывали?!

Последний раз я юзала запросы 2 года назад. А сейчас у меня безо всяких запросов работает)))

[xrob]

1) Выкидывается случайное число от 1 до 2000
2) Находится данная запись в БД
3) Проверяется длина слова
4) Если длина не удовлетворяет установленной сложности, то повторяется с п.1.

такой алгоритм не то что задержку 0.4 с...
если повезет, он вообще может никогда не закончиться =)

создай несколько таблиц по уровню сложности.
делается элементарно, в любом компиляторе...
пишешь прогу, пять минут и 200000 слов рассортированы по длинне.