[Selicat]

Здравствуйте, я делаю тест в Delphi, вопросы лежат в текстовом файле, структура файла: первая строка-вопрос, 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;

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

[Selicat]

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

[Janom]

попробуй так...

[Selicat]

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

попробуй так...

вот ща поменяла в Вашем исходнике текстовый файл на свой, и максимум первый раз вопрос считывает, а потом все, ошибка. Не может это случиться из-за того что мои вопросы и ответы достаточно внушительных размеров?

[Janom]

Именно по этому)

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.ScrollBars:=ssHorizontal;
end;

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

[Selicat]

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

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

в файле они у меня итак записаны в отдельной строке (1 - вопрос, 2- ответ, 3- ответ, 4 - ответ, 5 - правильный ответ) Ну так же как и у Вас в файле, но только в мемо, так как вопрос длинный, он не в одну строку грузится, а в две