Главная страница
    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.07 c
14-1104667326
Чеширский_Кот
2005-01-02 15:02
2005.01.23
Андрей Шевченко привез "Золотой мяч" в Киев


1-1105595475
makey22
2005-01-13 08:51
2005.01.23
Передача параметров в dll


3-1103466209
Алексей
2004-12-19 17:23
2005.01.23
Экспорт в готовый Excel-шаблон


3-1103522379
EvgeniyR
2004-12-20 08:59
2005.01.23
QReport группировка


4-1102093835
кактусбел
2004-12-03 20:10
2005.01.23
Поиск фаила в каталоге и его подкаталогах





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