IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Чтение текстового файла, текстовый файл или БД?
Jaxx
сообщение 16.06.2005 10:28
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 145
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


Значит так. Мне нужно написать следующую программу: небольшая формочка с тремя полями Memo, полем Label и двумя Батонами. Суть программы: есть 100 экз. билетов, в каждом из них по 3 вопроса. По нажатию на кнопку нужно вывести - в Label номер билета, в поля Memo вопросы из него. В программе, естественно использ. Random для выбора билета. Проблема моя в том, что я не знаю, как записать вопросы и билеты. Решил забить их в текстовый файл. В каждую строку по одному вопросу (то есть билет №1 - строки 1,2,3; билет №2 - строки 4,5,6) но как мне считать строки с определенными номерами и вывести их? Али может в какую-нить БД это все впендюрить? Правда ни разу не пользовал sad.gif

Сообщение отредактировано: Jaxx - 16.06.2005 10:28


--------------------
- Дорогие девушки! У вас сухая кожа? Редкие волосы? Проблемы с фигурой? Приходите к нам! У нас темно и мы пьяные.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Jaxx
сообщение 16.06.2005 13:36
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 145
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


Ладно, пойдем другим путем. В прикрепленном файле - архив. Там лежит все, вместе с файлом вопросов (набирать запарился...). Гляньте, что я не так сделал.
Почему я написал:

r:=random(73);
While not eof(f) do begin
readln(f,st);
for i:=1 to length(st) do begin
if StrToInt(st[i])=r then begin


где r-число, сгенерированное Random, f-файл, st-строка в которую считываем файл. А программка вылетает с ошибкой: 'И' is not a valid integer value. C какого перепугу оно буквы читает?

Сообщение отредактировано: Jaxx - 16.06.2005 13:40


Прикрепленные файлы
Прикрепленный файл  M.rar ( 171.41 килобайт ) Кол-во скачиваний: 163


--------------------
- Дорогие девушки! У вас сухая кожа? Редкие волосы? Проблемы с фигурой? Приходите к нам! У нас темно и мы пьяные.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Jaxx   Чтение текстового файла   16.06.2005 10:28
AlienEmperor   Как вариант: берешь поток, приделываешь вначале He...   16.06.2005 10:48
Jaxx   Я тут другую систему придумал. Дело в том, что мне...   16.06.2005 12:01
volvo   Орел !!! :) А вот у тебя 8 раз подряд...   16.06.2005 12:07
AlienEmperor   Тоже вариант... :) Простая разметка, тока вот что ...   16.06.2005 12:05
Guest   А и нехай генерируется. Файл вообще-то не такой у...   16.06.2005 12:19
AlienEmperor   Молодец! Вот это подход! Вам, батенька, ...   16.06.2005 12:33
Jaxx   Не, меня туда не возьмут. Разве что посуду мыть. ...   16.06.2005 12:48
AlienEmperor   И в чем проблема ?   16.06.2005 13:21
Jaxx   Ладно, пойдем другим путем. В прикрепленном файле ...   16.06.2005 13:36
Jaxx   Тьфу, млин. Понял, сам дурак. StrToInt для всех си...   16.06.2005 13:43
AlienEmperor   Так, глянул я енту фигню... Мне нравится такой под...   16.06.2005 13:50
AlienEmperor   Блин, посмотрел я этот index.txt... Слушай, а у те...   16.06.2005 14:10
Jaxx   Не надо ее стрелять. :nono: Пока что. Вот про умно...   16.06.2005 14:23
AlienEmperor   дааа... Долго думал ? :) :) :) А зачем их рэндо...   16.06.2005 14:32
Jaxx   Ну, я вот тут подумал и решил. В самом деле, не ст...   16.06.2005 16:46
Jaxx   Ну так что, никто не хочет мне помочь? Я же знаю, ...   22.06.2005 13:48
volvo   Смотри, что происходит: r:=random(73); { Ок, берем...   22.06.2005 13:55
Jaxx   Ух ты, блин! Сработало! Неужели я так лопу...   22.06.2005 14:02
AlienEmperor   Ну, человек, ты кадр... 1+Random(n) - всегда с еди...   22.06.2005 14:19
Jaxx   Может и кадр. Ну не разбираюсь я в программировани...   22.06.2005 14:35


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 18.06.2025 23:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"