Скачать: CL | DM;

Организация теста   Найти похожие ветки 

← →
A&N ©   (2003-04-28 15:07) [0]

Нужно организовать беспорядочное чтение вопросов и ответов из файла в Label, как это сделать?

---

← →
Карелин Артем ©   (2003-04-28 15:08) [1]

Функция random существует однако.

---

← →
A&N ©   (2003-04-28 15:17) [2]

Мы в курсе, она почемуто выдает только последний элимент

---

← →
Карелин Артем ©   (2003-04-28 16:01) [3]

Ну тогда давай код, посмотрим. Randomize вызывал?

---

← →
A&N ©   (2003-04-28 16:06) [4]

var
t:textfile;
s:string;
mas:array[0..7] of string;
i,j:integer;
begin
assignfile(t,"c:\1.txt");
reset(t);
while not eof(t) do begin
readln(t,s);
i:=random(7);
label1.Caption:=s[i];
end;
closefile(t);
end;

---

← →
Игорь Шевченко ©   (2003-04-28 16:09) [5]

О пользе чтения книг, однако...

---

← →
Карелин Артем ©   (2003-04-28 16:10) [6]

Добавь:
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
Проверил - работает.

---

← →
A&N ©   (2003-04-28 16:11) [7]

Если я тебя првильно понял , ты имеешь в виду книги читать, дак вот и почитай...

---

← →
A&N ©   (2003-04-28 16:12) [8]

Артем спасибо попробую!!!!

---

← →
circul ©   (2003-04-28 16:20) [9]

>A&N © (28.04.03 16:11)
Если я тебя првильно понял , ты имеешь в виду книги читать, дак вот и почитай...

С такими амбициями не стоиит вопросы задавать.

---

← →
A&N ©   (2003-04-28 16:23) [10]

Артем, все по прежнему, что делать?

---

← →
LordOfSilence ©   (2003-04-28 16:28) [11]

Ты вообще понимаешь, что означает конструкция s[i]?
Ты ищешь некий символ в строке с индексом i.
А дальше единственный символ присваиваешь заголовку метки.
Тебе именно это надо?

---

← →
circul ©   (2003-04-28 16:32) [12]

>A&N ©
а вот в этой строке ты что хочешьт получить? - label1.Caption:=s[i];

---

← →
A&N ©   (2003-04-28 16:32) [13]

Мне нужно брать целую строку из файла

---

← →
A&N ©   (2003-04-28 16:34) [14]

В LAbel1 нужно вставить предложение в виде вопроса...

---

← →
LordOfSilence ©   (2003-04-28 16:34) [15]

Оператором readln(t,s) ты ее уже взял.

---

← →
A&N ©   (2003-04-28 16:36) [16]

в фале содержаться 30 вопросов, каждый раз нужно брать один из них

---

← →
Johnny Smith ©   (2003-04-28 16:37) [17]

Ну, какова анкета, таковы и вопросы :)))))))
Никак Коля Быков?

---

← →
A&N ©   (2003-04-28 16:38) [18]

Что, что простите???

---

← →
Snap ©   (2003-04-28 16:38) [19]

RTFM

---

← →
LordOfSilence ©   (2003-04-28 16:39) [20]

Судя по всему, дядя Наташа решило постебаться...

---

← →
Vlad Oshin ©   (2003-04-28 16:45) [21]

mas Вам зачем?

---

← →
Vlad Oshin ©   (2003-04-28 16:49) [22]

> дядя Наташа решило

:)))

---

← →
LordOfSilence ©   (2003-04-28 16:49) [23]

2 Vlad Oshin © (28.04.03 16:45)
Чтоб мы с тобой в час по чайной ложке из него сведения вытаскивали.

---

← →
Игорь Шевченко ©   (2003-04-28 16:55) [24]

LordOfSilence © (28.04.03 16:49)


> Чтоб мы с тобой в час по чайной ложке из него сведения вытаскивали.


Гестаповцы :)

---

← →
A&N ©   (2003-04-28 17:07) [25]

Вообщето нас двое. Мы не сиамские близнеци, мы просто муж и жена...

---

← →
circul ©   (2003-04-28 17:14) [26]

А, может быть, поможет Label1.Caption := s; ????

---

← →
A&N ©   (2003-04-28 17:21) [27]

К сожалению, все равно выводится только последняя строка файла!

---

← →
vopros ©   (2003-04-28 17:25) [28]

//Бессмыслица
while not eof(t) do begin
readln(t,s);
i:=random(7);
label1.Caption:=s[i];
end;

---

← →
A&N ©   (2003-04-28 17:27) [29]

Vopros Подскажи что нибудь со смыслом!!!

---

← →
LordOfSilence ©   (2003-04-28 17:28) [30]

Дорогие молодожены!
Уже несколько человек пытаются задавать вам наводящие вопросы, но
вы все никак не ведетесь на это сомнительное действо и упрямо не
втыкаетесь в ситуацию. Напрочь.
Продолжаем "наводить":
Если строк 30, то почему Random(7)? И массив у вас из восьми строк
[0..7]. Кстати, вы так и не ответили на вопрос Влада, зачем вы его
объявляли, если не используете?

---

← →
Johnny Smith ©   (2003-04-28 17:29) [31]

2A&N © (28.04.03 17:27)
Выберите строки в какую-либо структуру (например, в TList или TCollection) и обращайтесь через Random к Item"ам по их индексам.

---

← →
A&N ©   (2003-04-28 17:35) [32]

Пока 7 вопросов из 30, на mas забейте неужели не видно, что он нигде не задействован!
Предложите свое решение к организации вывода в label из файла вопросов, в файле находится n-ое число вопросов в данном случае 7

---

← →
LordOfSilence ©   (2003-04-28 17:48) [33]

Если на массив вы "забиваете", то чем вам не нравится вариант
Johnny Smith © (28.04.03 17:29)?

---

← →
A&N ©   (2003-04-28 17:58) [34]

Все это хорошо, но нам нулно в label

---

← →
Vlad Oshin ©   (2003-04-28 18:00) [35]

вам надо в массив затолкать содержимое файла
потом метка=случайно из массива

---

← →
A&N ©   (2003-04-28 18:04) [36]

Пробовали, и таже лажа(от туда и остался mas, который тебя смущал)

---

← →
VAleksey ©   (2003-04-28 18:13) [37]

Тушим свет еще раз :-).
Спасибо родные, повеселили в конце рабочего дня.

---

← →
LordOfSilence ©   (2003-04-28 18:18) [38]

Душевный флейм, однако...

var
t:textfile;
s:string;
mas:array[0..6] of string;
i,j:integer;
begin
assignfile(t,"c:\1.txt");
reset(t); i := 0;
while not eof(t) do begin
readln(t,s);
mas[i] := s;
i := i + 1;
end;
j:=random(6);
label1.Caption:=mas[j];
closefile(t);
end;

Приблизительно такая бредятина подойдет?

---

← →
DAC ©   (2003-04-28 18:27) [39]

> LordOfSilence © (28.04.03 18:18)

Ну вот, такой флейм был, а ты взял, да испортил :)

---

← →
LordOfSilence ©   (2003-04-28 18:33) [40]

Признаю свою вину, меру, степень, глубину... :-)

---

Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.54 MB
Время: 0.012 c