Организация теста

← →
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;

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

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

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

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

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

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

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

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

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

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;

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

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

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