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

Вниз

Работа с таблицами   Найти похожие ветки 

 
Сашка   (2004-12-16 14:40) [0]

Здравствуйте. Возникла такая проблема. Нужно осуществлять переход по записям таблицы в случайном порядке, но записи не должны повторяться. Как можно отследить использовалась ли эта запись уже или нет? Заранее спасибо.


 
msguns ©   (2004-12-16 14:47) [1]

Т.е. перебор записей должен быть именно случаен ? Непонятно зачем.
Но если все же надо так, то
1. Создай список, куда занеси идентификаторы (если их нет, то номера (RecNo) записей, полученные сканированием НД)
2. В пределах 1-N (N - число элементов в списке) определяешь случайное число (Randomize+Random) и по нему выбираешь запись НД для обработки.
3. Из списка удаляешь выбранную в п.2 строку
4. Повторяешь с п.2

Только зачем это ?


 
DenK_vrtz ©   (2004-12-16 14:52) [2]

>Только зачем это ?

А лабораторные работы в этом году такие.
Заметь, периодически повторяется один и тот же вопрос, только в разных интерпретациях.

:)


 
Сашка   (2004-12-16 15:04) [3]

Какой список имеется ввиду?


 
msguns ©   (2004-12-16 15:07) [4]

TList, TStringList, etc

Любой, какой больше нравится ;)


 
msguns ©   (2004-12-16 15:08) [5]

Не нравятся списки, юзай массивы. Но у списков множество вкусностей по сравнению с массивами.


 
Сашка   (2004-12-16 15:55) [6]

Если не сложно то скинь пример как с ListBox"ом работать. Записи я в него загнал а вот перемещение случайное и удаление не могу сделать. Буду оч признателен.


 
msguns ©   (2004-12-16 16:05) [7]

Работай с его коллекцией строк Items. В ней есть такой метод Delete, удаляющий из списка указанную строку. Номер (индекс) указанной определяй как показано в [1]

Ну чего не понятно-то ?

Или дать готовый код ? $50 и через пять минут получишь ;))


 
msguns ©   (2004-12-16 16:05) [8]

Работай с его коллекцией строк Items. В ней есть такой метод Delete, удаляющий из списка указанную строку. Номер (индекс) указанной определяй как показано в [1]

Ну чего не понятно-то ?

Или дать готовый код ? $50 и через пять минут получишь ;))


 
Sergey13 ©   (2004-12-16 16:10) [9]

2[7] msguns ©   (16.12.04 16:05)
> $50 и через пять минут получишь ;))
Ну и расценочки у тебя!!! 8-)


 
Johnmen ©   (2004-12-16 16:17) [10]

>Sergey13 ©   (16.12.04 16:10) [9]
>Ну и расценочки у тебя!!! 8-)

Я так думаю, что с учетом надбавки за срочность :))


 
Сашка   (2004-12-16 16:23) [11]

Сразу деньги.... Нет чтобы просто помочь начинающему....


 
msguns ©   (2004-12-16 16:26) [12]

>Сашка   (16.12.04 16:23) [11]
>Сразу деньги.... Нет чтобы просто помочь начинающему....

Знаешь, дорогой, ЛОР лечит насморк, а не ходит за тобой с носовым платком. Пилюли тебе уже прописаны..


 
Term   (2004-12-16 16:26) [13]

Удалено модератором


 
Term   (2004-12-16 16:27) [14]

Удалено модератором


 
Term   (2004-12-16 16:29) [15]

Удалено модератором


 
Term   (2004-12-16 16:31) [16]

Удалено модератором
Примечание: дубль


 
Term   (2004-12-16 16:32) [17]


> Сразу деньги.... Нет чтобы просто помочь начинающему....

тебе уже помогли



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

Форум: "Базы";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.044 c
8-1097533122
Neznajko
2004-10-12 02:18
2005.01.23
avi,mpg + + +


6-1099486260
anton2v
2004-11-03 15:51
2005.01.23
Ограничение скорости соединения


14-1104744975
Delphi5.01
2005-01-03 12:36
2005.01.23
... методам изучения английского языка ...


14-1105103932
Kerk
2005-01-07 16:18
2005.01.23
Почему модераторы...


1-1105562080
chir
2005-01-12 23:34
2005.01.23
ToolButton6.DropdownMenu.Popup(0,0); - как получить координаты?





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