|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.09.2008, 17:50 | #1 |
Регистрация: 21.09.2008
Сообщений: 6
|
Выборка текста
Здравствуйте.Мне нужно быстро по работе сделать прогу,а в делфи начал розбираться только неделю назад помогите плс.
Мне нужно чтобы с ТХТ файла делалась выборка 100 строк(разных) и вставлялись в поле мемо.Как это можна реализовать.Можете скинуть исходник чтобы я посмотрел. Заранее благодарен. |
21.09.2008, 18:04 | #2 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Каков критерий выборки?
|
21.09.2008, 18:05 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Первых 100 строк или по какому-то правилу?
|
21.09.2008, 18:39 | #4 |
Регистрация: 21.09.2008
Сообщений: 6
|
Просто например в файле 100к строк.Чтобы была выборка любых 100 строк с этого файла.
Правила нету.Главное чтобы каждый раз когда нажимаю на кнопку были разные строки. P.S Спс за то что откликнулись Последний раз редактировалось frayerok; 21.09.2008 в 18:45. |
21.09.2008, 19:05 | #5 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Код:
|
21.09.2008, 19:25 | #6 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Чтобы строчки не повторялись можно так
Код:
|
21.09.2008, 19:46 | #7 |
Регистрация: 21.09.2008
Сообщений: 6
|
Ой братцы спс.Говорила мама учи програмирование
Просто сейчас сайтами занимаюсь(дорвеями) и пишу прогу чтобы минимализировать ручную работу.Большое вам спасибо. |
21.09.2008, 19:49 | #8 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Я бы сделал так. Иначе будут проблемы с повторяемостью опыта (когда из str удалим все строки)...
Код:
|
21.09.2008, 20:39 | #9 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
100 строк, 100 выборок
1) k := random(str.Count); от 0 до 99 включительно str.Delete(k) //str.Count уменьшится на 1 2) k := random(str.Count); от 0 до 98 str.Delete(k) //str.Count уменьшится на 1 ... Повтора не будет, на всякий случай можно добавить if str.Count = 0 then break |
21.09.2008, 20:44 | #10 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Нет, имелось ввиду если мы второй, третий, четвёртый раз нажмём кнопку Button1, то может получиться так, что и строк для выбора не останется.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выборка по среднему | Kip | Microsoft Office Access | 3 | 11.08.2008 21:56 |
ADO, выборка из таблицы. | Roof | БД в Delphi | 2 | 09.07.2008 18:51 |
Выборка из таблицы | ivp88 | БД в Delphi | 5 | 12.01.2008 14:36 |
выборка | Ser_gl | Microsoft Office Excel | 1 | 24.08.2007 20:49 |
Выборка | John_chek | БД в Delphi | 10 | 27.06.2007 08:43 |