[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 - правильный ответ) Ну так же как и у Вас в файле, но только в мемо, так как вопрос длинный, он не в одну строку грузится, а в две

[Janom]

я ж написал) у memo свойство ScrollBars в состояние ssHorizontal поставь) или

Код:

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

[Selicat]

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

[Janom]

Файл в студию)

[Selicat]

ну, это Ваш пример, после того как я туда залезла, своими неумеющими ручонками
SampleTEST_1.rar

[Janom]

Вот эту строку

Код:

OTBET:=StrToInt(Memo1.Lines[n+4]);

меняй на эту

Код:

OTBET:=StrToInt(Memo1.Lines[n+4][1]);

[Selicat]

а теперь все отображается так: вместо вопроса цифра (очевидно номер правильного ответа предыдущего вопроса),а там где должен быть первый вариант ответа - вопрос.

[Janom]

В 40й строке ошибка была...
Я вообщем что-то увлекся и чуть подправил все...
Исходник Теста.rar

[Selicat]

Janom, спасибо Вам огромное Вы меня просто спасли

[Janom]

Да на здоровье!
Главное помнить, что мир не без добрых людей