Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2009, 00:15   #1
AllerGEN
 
Регистрация: 03.12.2009
Сообщений: 5
Восклицание Массив+FileListBox+Вывести

Здраствуйте уважаемые. Пожалуйста помогите мне.

Есть 60 txt файлов которые называются 10001, 10001... 100**
Их содержимое такого:

2010 (1 строчка год)
А1 (2 строчка - номер вопроса)
В каком слове верно выделена буква, обозначающая ударный гласный звук?

(3-7 строчки (тоесть 5 строчек) уходят на вопрос


кухОнный
докУмент (8-11 (тоесть 4 строчки) уходят на варианты ответа
обОстришь
тОрты
4 (12 строчка - сам ответ)

В делфи мы имеем FileListBox (скрытый) где выводятся эти 60 ткст файликов.

Задача состоит в том, чтобы написать массив.Который бы перебирал эти 60 файликов и рандомно 30 (НЕ ПОВТОРЯЮЩИХСЯ) выводил в виде текста в блокноте. (Куда можно выводить информацию эту???)


Помагите пожалуйста, если что то нужно буду дописывать.
AllerGEN вне форума Ответить с цитированием
Старый 03.12.2009, 00:35   #2
notHaker
Форумчанин
 
Аватар для notHaker
 
Регистрация: 01.12.2009
Сообщений: 569
По умолчанию

А зачем те скрытый FileListBox? Есть FindFirst и FindNext...
"выводил в виде текста в блокноте." - все 30 в одном блокноте, или 30 блокнотов . В любом случае ShellExecute(); в модуле ShellAPI;
В качестве параметра передавай блокноту имя файла. А остальное - тривиально!
Код - это работа, а работа стоит денег.

pz-game.ru. 2d зомби-сурвивал для олдфагов.

Последний раз редактировалось mihali4; 03.12.2009 в 00:45.
notHaker вне форума Ответить с цитированием
Старый 03.12.2009, 17:19   #3
AllerGEN
 
Регистрация: 03.12.2009
Сообщений: 5
По умолчанию

Во первых это в Delphi. Во вторых, мы не проходили Shell)
И в третих мне нужен конкретно код пожалуйста))Я представляю как он и выглядит, и это строчек 10 максимум)
AllerGEN вне форума Ответить с цитированием
Старый 03.12.2009, 23:25   #4
notHaker
Форумчанин
 
Аватар для notHaker
 
Регистрация: 01.12.2009
Сообщений: 569
По умолчанию

Цитата:
Сообщение от AllerGEN Посмотреть сообщение
Во первых это в Delphi. Во вторых, мы не проходили Shell)
И в третих мне нужен конкретно код пожалуйста))Я представляю как он и выглядит, и это строчек 10 максимум)
во первых!!! надо говорить, какой язык.
во вторых, если хочешь быстро и таким тоном, то тебе во фриланс.
и в третих, пройти ShellExecute - 5 минут. Я ведь тебя даже носом на функцию ткнул.
Код - это работа, а работа стоит денег.

pz-game.ru. 2d зомби-сурвивал для олдфагов.
notHaker вне форума Ответить с цитированием
Старый 04.12.2009, 07:44   #5
AllerGEN
 
Регистрация: 03.12.2009
Сообщений: 5
По умолчанию

а пчм нельзя делать так то??? Задать массив, сделать рандомизе, LoadFromFile как то так)))
AllerGEN вне форума Ответить с цитированием
Старый 04.12.2009, 08:28   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
А зачем те скрытый FileListBox?
В данном случае автор с этим компонентом попал в bulleye как раз.
Обьясняю почему:
Автору нужно загрузить файл из списка случайным образом выбранный да так чтоб не повторялось - превосходно
Делаем так:
Код:
Var i:integer;
...
i:=random(FileListBox.Count);
Загружаем FileListBox.Items[i];
И убираем файл из списка, дабы не попался вдруге
FileListBox.Items.Delete(i);
Вданном случае этот компонент очень поможет автору, так как он и поисковик, и массив в одном флаконе.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.12.2009, 21:51   #7
AllerGEN
 
Регистрация: 03.12.2009
Сообщений: 5
По умолчанию

это писать в процедуре FileListBOxa???

Просто у меян щас в роге вот что:

Код:
procedure TForm1.FormCreate(Sender: TObject);
   begin
      Prefix:=ExtractFilePath(Application.ExeName);
      FileListBox1.Mask:=Prefix+'Задание\'+'*.txt';
      {random(FileListBox1.Count)   0..FileListBox1.Count-1} (Это мне препод типа подскказал как сделать)
      end;

procedure TForm1.FileListBox1Change(Sender: TObject);
Var i:integer;
begin
i:=random(FileListBox1.Count);
FileListBox1.Items[i];
FileListBox1.Items.Delete(i);
end;

end.

что не так?что дальше?)

Последний раз редактировалось AllerGEN; 04.12.2009 в 21:55.
AllerGEN вне форума Ответить с цитированием
Старый 07.12.2009, 12:02   #8
AllerGEN
 
Регистрация: 03.12.2009
Сообщений: 5
По умолчанию

поднимаю пост)
AllerGEN вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите вывести массив из файла на С + + Olya_Fox Помощь студентам 4 22.10.2009 18:19
Подсчитать и Вывести массив (assembler) tavi Помощь студентам 0 25.04.2009 03:18
Сформировать и вывести на экран массив вещественных чисел K={ki}, i=1..b NitriNKa Помощь студентам 3 18.04.2009 15:38
вывести массив ровно rev1ver Паскаль, Turbo Pascal, PascalABC.NET 3 18.01.2009 17:45
Помогите непутевой вывести массив? sandras PHP 5 09.12.2008 03:07