Вопросы из мемо в случайном порядке

[Selicat]

Здравствуйте, я делаю тест в Delphi7, вопросы лежат в текстовом файле, структура файла: первая строка-вопрос, 2,3,4 - варианты ответов, 5 - номер правильного ответа. весь файл грузится в мемо, а оттуда по строчкам раскидывается в Label и RadioButton-ы. вопросы должны появляться случайно. Я попыталась что-то сделать......

procedure TForm6.FormCreate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('тест.txt');
randomize;
for i:= to n do begin
v:=random(n)
label1.Caption:=memo1.Lines[v*5];
Radiobutton1.Caption:=memo1.Lines[v*5+1];
Radiobutton2.Caption:=memo1.Lines[v*5+2];
Radiobutton3.Caption:=memo1.Lines[v*5+3];
NP:=Memo1.Lines[v*5+4];
if Radiobutton1.Checked and NP='1'
or Radiobutton2.Checked and NP='2'
or Radiobutton3.Checked and NP='3'
then ball:=ball+1;
for k:=0 to 4 do
memo1.Lines.Delete(v*5+k);
n:=n-1;
end;
 n:=strtoint(memo1.Lines[memo1.Lines.count-1]);
 end;

Но видимо я совсем не так делаю Помогите, пожалуйста разобраться
Редактировать/Удалить сообщение

[KobolD]

Тут надо место for использовать условие while (n>0) а то получается что у тебя условие для for плавающее, у тебя и счетчик и условия окончания изменяются. И n надо определять до начала цикла.

procedure TForm6.FormCreate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('тест.txt');
randomize;
n:=(memo1.Lines.count-1)/5;
While (n>0) do begin
v:=random(n)
label1.Caption:=memo1.Lines[v*5];
Radiobutton1.Caption:=memo1.Lines[v*5+1];
Radiobutton2.Caption:=memo1.Lines[v*5+2];
Radiobutton3.Caption:=memo1.Lines[v*5+3];
NP:=Memo1.Lines[v*5+4];
if Radiobutton1.Checked and NP='1'
or Radiobutton2.Checked and NP='2'
or Radiobutton3.Checked and NP='3'
then ball:=ball+1;
for k:=0 to 4 do
memo1.Lines.Delete(v*5+k);
n:=n-1;
end;
end;

Могу ощибиться в синтаксисе т.к. с паскалем не дружу.

[Selicat]

procedure TForm6.FormCreate(Sender: TObject);
begin

n:=15; 
Memo1.Lines.LoadFromFile('тест.txt');
randomize;
n:=(memo1.Lines.count-1)/5; 
While (n>0) do begin

v:=random(n)
label1.Caption:=memo1.Lines[v*5];
Radiobutton1.Caption:=memo1.Lines[v*5+1];
Radiobutton2.Caption:=memo1.Lines[v*5+2];
Radiobutton3.Caption:=memo1.Lines[v*5+3];
NP:=Memo1.Lines[v*5+4];
if Radiobutton1.Checked and NP='1'
or Radiobutton2.Checked and NP='2'
or Radiobutton3.Checked and NP='3'
then ball:=ball+1;
for k:=0 to 4 do
memo1.Lines.Delete(v*5+k);
n:=n-1;
end;
 n:=strtoint(memo1.Lines[memo1.Lines.count-1]);
 end;

а что значит эта строка? на ней ошибку выдает n:=(memo1.Lines.count-1)/5;
и n я задаю как количество вопросов, не правильно делаю?

[Serge_Bliznykov]

1) удаление использованного вопроса сделано неверно.

2) почему получение случайного вопроса вынесено на FormCreate ?! Вам ОДИН вопрос при запуске программы нужен?! Остальные не интересуют?!

3) я вижу несколько различных подходов.
I. После чтения вопросов в Memo (кстати, а почему в Memo - TStringList тоже самое, только быстрее (т.к. без визуализации)
потом вопросы брать из списка, просто читая по пять строк.

II. Завести массивчик [1..N] (N - количество вопросов.) можно динамический.
В него поместить адреса строк вопросов (1, 6, 11 и т.д.)
массив перемешать. брать вопросы по ссылкам из этого массива.

III. брать случайный номер вопроса через RANDOM(N) + 1
до тех пор пока этого номера нет ещё в списке выпавших.
сохранить выпавших номер в список.
повторить нужное число раз...


p.s. с любым вариантом легко помогу примером..

[Selicat]

Сообщение от Serge_Bliznykov

2) почему получение случайного вопроса вынесено на FormCreate ?! Вам ОДИН вопрос при запуске программы нужен?! Остальные не интересуют?!

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

Сообщение от Serge_Bliznykov

I. После чтения вопросов в Memo (кстати, а почему в Memo - TStringList тоже самое, только быстрее (т.к. без визуализации)
потом вопросы брать из списка, просто читая по пять строк.

тоесть в мэмо выводить вопрос и варианты ответа к нему? или как?
Мне нужно чтобы их мемо в лэйбл и на кнопки, чтоб вопросы не по порядку, а случайным образом, и чтобы можно было не все 30 задать, а к примеру 15

[Selicat]

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