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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.06.2010, 22:47   #1
Len4i]{
Пользователь
 
Аватар для Len4i]{
 
Регистрация: 02.06.2010
Сообщений: 30
По умолчанию Программа "Правила дорожного движени" в Delphi

пишу программу и не могу написать один код. нужно, чтобы при нажатии на кнопку билет выбирался случайным образом из списка билетов (в фомате .txt) и выдавался на форму
Len4i]{ вне форума Ответить с цитированием
Старый 02.06.2010, 23:10   #2
fbus
Форумчанин
 
Аватар для fbus
 
Регистрация: 23.10.2008
Сообщений: 460
По умолчанию

ну процедуру вывода в студию
fbus вне форума Ответить с цитированием
Старый 02.06.2010, 23:29   #3
Len4i]{
Пользователь
 
Аватар для Len4i]{
 
Регистрация: 02.06.2010
Сообщений: 30
По умолчанию

мне нужно, чтоб файлы брались именно случайным образом
Len4i]{ вне форума Ответить с цитированием
Старый 02.06.2010, 23:40   #4
Roof
Форумчанин
 
Аватар для Roof
 
Регистрация: 01.02.2007
Сообщений: 785
По умолчанию

Randomize
и
Random
Мм??
Изо всей благодати
В руках крепко сжатых
Я донесу только капли
Roof вне форума Ответить с цитированием
Старый 02.06.2010, 23:59   #5
Len4i]{
Пользователь
 
Аватар для Len4i]{
 
Регистрация: 02.06.2010
Сообщений: 30
По умолчанию

я понимаю, что это делается через randomize или random. но так обычно вроде работают с массивами. а в массивах я работала только с числами, а тут у меня текстовые и файлы и поэтому я не могу понять как это сделать. :-(
Len4i]{ вне форума Ответить с цитированием
Старый 03.06.2010, 00:07   #6
NiCola999
Не
Участник клуба
 
Регистрация: 29.10.2009
Сообщений: 1,456
По умолчанию

сделать массив из имен файлов с билетами, генерировать случайный индекс в массиве и открывать файл с полученным именем
NiCola999 вне форума Ответить с цитированием
Старый 03.06.2010, 00:22   #7
Len4i]{
Пользователь
 
Аватар для Len4i]{
 
Регистрация: 02.06.2010
Сообщений: 30
По умолчанию

спасибо за подсказку, я в принципе эт понимаю. но вот как это сделать? сейчас буду пытаться

блииин. мозг совсем не работаетю не могу даже понять что в программе нужно сделать

Последний раз редактировалось Stilet; 03.06.2010 в 12:54.
Len4i]{ вне форума Ответить с цитированием
Старый 03.06.2010, 00:54   #8
Кинельски
Форумчанин
 
Регистрация: 10.03.2010
Сообщений: 109
По умолчанию

Утром кто нибудь напишет ша все спят
Кинельски вне форума Ответить с цитированием
Старый 03.06.2010, 01:29   #9
Roof
Форумчанин
 
Аватар для Roof
 
Регистрация: 01.02.2007
Сообщений: 785
По умолчанию

2 Len4i]{ - наработки выкладывай сюда.
1) билеты в разных файлах или в одном?
2) не лучше ли использовать базу данных?

2 Кинельски - я не сплю. Никогда
Изо всей благодати
В руках крепко сжатых
Я донесу только капли
Roof вне форума Ответить с цитированием
Старый 03.06.2010, 02:31   #10
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

К примеру(из вышесказанного):
Код:
Var
S: Array[1..3] Of String =('1.txt','2.txt','3.txt');
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Randomize;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Label1.Caption:=S[Random(4)];
End;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль.Программа "Верификация", "Кака бригадиру разделить заработанные деньги?".Сложные Valik102 Помощь студентам 11 23.06.2009 15:30
Паскаль.Программа "Верификация", "Кака бригадиру разделить заработанные деньги?".Сложные Valik102 Паскаль, Turbo Pascal, PascalABC.NET 3 23.06.2009 09:11
Паскаль. 2 задачи (Программа "Верификация","КАК БРИГАДИРУ РАЗДЕЛИТЬ ЗАРОБОТАННЫЕ ДЕНЬГИ") Valik102 Помощь студентам 3 20.05.2009 20:42
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует skobets Общие вопросы C/C++ 2 03.06.2008 06:51