Запись из файла txt в массив

[aleks_m]

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

Здесь код чтения и вывода Вопросов и ответов из файла

Procedure TForm3.VoprosToScr;
var
i:integer;
s,buf:string;
begin
vopros:=vopros+1;
caption:='Вопрос ' + IntToStr(vopros);
buf:='';
repeat
readln(f,s);
if (s[1] <> '.') and (s[1] <> '\')
then buf:=buf+s+' ';
until (s[1] ='.') or (s[1] ='\');
Label5.caption:=buf;
i:=1;
repeat
buf:='';
repeat 
readln(f,s);
if (s[1]<>'.') and (s[1] <> ',')
then buf:=buf+s+' ';
until (s[1]=',')or(s[1]='.');
score[i]:= StrToInt(s[2]);
case i of
1: Label1.caption:=buf;
2: Label2.caption:=buf;
3: Label3.caption:=buf;
4: Label4.caption:=buf;
end;
i:=i+1;
until s[1]='.';
if Form3.Label1.Caption <> ''
then begin
RadioButton1.top:=Label1.top;
Label1.visible:=TRUE;
RadioButton1.visible:=TRUE;
end;

if Form3.Label2.Caption <> ''
then begin
Label2.top:=Label1.top+ Label1.height+10;
RadioButton2.top:=Label2.top;
Label2.visible:=TRUE;
RadioButton2.visible:=TRUE;
end;

if Form3.Label3.Caption <> ''
then begin
Label3.top:=Label2.top+ Label2.height+10;
RadioButton3.top:=Label3.top;
Label3.visible:=TRUE;
RadioButton3.visible:=TRUE;
end;

if Form3.Label4.Caption <> ''
then begin
Label4.top:=Label3.top+ Label3.height+10;
RadioButton4.top:=Label4.top;
Label4.visible:=TRUE;
RadioButton4.visible:=TRUE;
end;
end;

[BingoBongo]

Простите конечно - но это кошмар какой код!!!

[art-programs]

да уж, глядя на код плакать хочется)
для начала посмотрите в интернетах зачем например существует процедура inc
и зачем городите двойную проверку в цикле

repeat
readln(f,s);
if (s[1] <> '.') and (s[1] <> '\')
then buf:=buf+s+' ';
until (s[1] ='.') or (s[1] ='\');

используйте while do
а вообще удалите все эти пакости)

если в тхт у вас пара вопрос-ответ (т.е. не тест с вариантами), то не проще ли
хранить их так:
Вопрос номер 1 | ответ №1 , где | - разделитель
а потом тхт подгружать в Tstringlist или ListView
потом вызывать рандом для индекса в Tstringlist

i:=ramdom(stringlist.count-1);
s:=stringlist.strings[i];

и теперь распарсить строку на вопрос и ответ
чем вариант?

[aleks_m]

repeat
readln(f,s);
if (s[1] <> '.')
then buf:=buf+s+' ';
until (s[1] ='.');

Двойная проверка была для того что бы искать картинку к вопросу если она присутствует. Но потом я убрал все картинки, а проверку забыл выкинуть...
На счет while do это да можно сделать, как-то не подумал изначально...

Каких лидеров называют парциальными?
.
Лидеры коллектива 
,0
Лидеры групп 
,0
Лидеры руководителей 
,0
Лидеры микрогрупп 
.1

Вот у меня как выглядит файл с вопросами сам вопрос потом точка для определения конца вопроса, и дальше 4 варианта ответа как аз сверяю по точке конец вариантов ответов...

[art-programs]

лучше использовать однострочное представление:

Каких лидеров называют парциальными?
Лидеры коллектива 
Лидеры групп 
Лидеры руководителей 
Лидеры микрогрупп
2

2- это номер прав. варианта
для хранения в проге во время работы и вывода рандомно использовать массивы

type  Tvopros=record
          vop,otv1,otv2,otv3,otv4:string;
          true_otv:integer;
end;
.....
m:array[1..мульён] of  Tvopros;
....
i:=0; j:=1;
while i<=stringlist.count-1 do
begin
m[j].vop:=stringlist.strings[i];  inc(i);
m[j].otv1:=stringlist.strings[i];  inc(i);
m[j].otv2:=stringlist.strings[i];  inc(i);
m[j].otv3:=stringlist.strings[i];  inc(i);
m[j]. true_otv:=inttostr(stringlist.strings[i]);  inc(i);
inc(j);
end;

и рандомно эти вопросы вызывать по индексу

вобщем что-то типа того

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

[aleks_m]

Спасибо за помощь, попробую исправить...