Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Создание отдельного списка [D6, Access]

Страницы: 1 2 >
VitaFrost © (2008-07-04 19:11:00)
Ребята здравствуйте! Обращаюсь к Вам, как к истинным мастерам своего дела. Помогите,пожалуйста. Нужно из таблицы с записями выделить все значения, но только чтоб не повторялись одинаковые и занести их в текстовый документ.
Например: Table1 имеет записи
мотороллер
пистолет
самокат
самокат
вертолет
мотороллер и т.д.
В текстовом документе должно быть только
мотороллер
пистолет
самокат
вертолет.
Заранее Вам благодарен. С Уважением к Вам, Виталий.

azamatufa (2008-07-07 16:19:00) [1]
Эх! Все красное. Почитать бы что было... )))

VitaFrost (2008-07-06 18:58:00) [2]
>Этот Вита
Этот VitaFrost

Тын-Дын (2008-07-06 14:35:00) [3]
Удалено модератором

Тын-Дын (2008-07-06 13:01:00) [4]
Удалено модератором
Примечание: Достал. Читай правила

Тын-Дын (2008-07-06 02:37:00) [5]
Удалено модератором

Германн (2008-07-06 02:30:00) [6]
Удалено модератором

Johnmen (2008-07-06 02:25:00) [7]
Удалено модератором

Германн (2008-07-06 02:19:00) [8]
Удалено модератором

Германн (2008-07-06 02:16:00) [9]
Удалено модератором

Тын-Дын (2008-07-06 02:10:00) [10]
Удалено модератором

Johnmen (2008-07-05 23:54:00) [11]

> Если не ставишь себе целью изучение алгоритмов,

Уже давно было сказано - если не ставишь себе целью программирование - найми программистов.
И не бредь в в программистских форумах. Здесь и так найдётся кому....

Игорь Шевченко (2008-07-05 23:17:00) [12]

> Эта Вита

Этот Вита

MsGuns (2008-07-05 22:25:00) [13]
Эта Вита прикалывается тут над всеми - вон, даже ЮЗа развела ;)

Тын-Дын (2008-07-05 17:00:00) [14]

> Владимир (05.07.08 10:10) [11]
> Алгоритм такой:
>
> читаешь последовательно свою таблицу. Первую запись сохраняешь
> в отдельный массив. Когда идет вторая и последующая записи,
> ты первоначально пробегаешь массив циклом и проверяешь:
> нет ли там такой же записи. Если нет - добавляешь. Если
> есть - идешь дальше. И так до конца. В итоге, в твоем массиве
> будут только НЕПОВТОРЯЮЩИЕСЯ записи. А если напишешь качественную
> процедуру, то можно будет такие данные тянуть откуда угодно,
> хоть из БД!

К сожалению, данный алгоритм слишком неоптимален.

> VitaFrost © (05.07.08 16:50) [13]

Если не ставишь себе целью изучение алгоритмов, воспользуйся TStringList и его методами и свойствами - Sorted, Duplicates, Sort.

VitaFrost (2008-07-05 16:50:00) [15]
> читаешь последовательно свою таблицу. Первую запись сохраняешь в отдельный массив. Когда идет вторая и последующая записи, ты первоначально пробегаешь массив циклом и проверяешь: нет ли там такой же записи. Если нет - добавляешь. Если есть - идешь дальше. И так до конца. В итоге, в твоем массиве будут только НЕПОВТОРЯЮЩИЕСЯ записи. А если напишешь качественную процедуру, то можно будет такие данные тянуть откуда угодно, хоть из БД!

Спасибо.

P.S. Все же с чего то начинали...

Поросенок Винни-Пух (2008-07-05 10:27:00) [16]
Вот есть же умные люди на форуме

Владимир (2008-07-05 10:10:00) [17]
Алгоритм такой:

читаешь последовательно свою таблицу. Первую запись сохраняешь в отдельный массив. Когда идет вторая и последующая записи, ты первоначально пробегаешь массив циклом и проверяешь: нет ли там такой же записи. Если нет - добавляешь. Если есть - идешь дальше. И так до конца. В итоге, в твоем массиве будут только НЕПОВТОРЯЮЩИЕСЯ записи. А если напишешь качественную процедуру, то можно будет такие данные тянуть откуда угодно, хоть из БД!

Тын-Дын (2008-07-04 23:32:00) [18]
Удалено модератором

Johnmen (2008-07-04 21:02:00) [19]

> Тын-Дын © (04.07.08 20:37) [7]
> Anatoly Podgoretsky © (04.07.08 20:55) [8]

Ваши советы для автора = 0, т.к. его знания тоже = 0.

Anatoly Podgoretsky (2008-07-04 20:55:00) [20]
Ну он не пишет, что использует, но вероятно так и есть, но нафиг использовать TQuery, когда у него Access - надо переходить на прямые компоненты, на TAdoDataset и Jet 4

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »