Проблема в Делфи

[Лунатик222]

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

s:=tstringlist.Create;  
  s.LoadFromFile(opendialog1.filename); 
  if s.Strings[1]='&' then   begin
    if s.Text<>'' then  

    begin
    form1.Caption:=s.Strings[0] +' Вопрос # 1'; 
      for j := 1 to s.Count - 1 do 
      begin

        if s.Strings[j]='&' then  
        begin
        label3: QuestionText[h]:=s.Strings[j+1]; 
        Var1[h]:=s.Strings[j+2];
        Var2[h]:=s.Strings[j+3];
        Var3[h]:=s.Strings[j+4];
        Var4[h]:=s.Strings[j+5];
        AnswerQuestion[h]:=strtoint(s.Strings[j+6]);

QuestionText
Var1
Var2
Var3
Var4
AnswerQuestion - однострочные массивы

считывание с обычного текстового документа
прошу помощи...

[bag]

Сообщение от Лунатик222

...как развить алгоритм чтобы количество вариантов определялось волей юзера...

Ты имеешь ввиду, что в том же текстовом файле определялось количество вариантов ответов на каждый вопрос? Или я чего-то не допонял?

[Greblin]

Вместо того, чтобы заводить 4 одномерных массива Var1 ... Var4, заведите один двумерный. Абсолютно неограниченным его сделать конечно не получится, но юзеру скорее всего вариантов 100 хватит для счастья. И окончание блока вариантов в файле отмечайте каким нибудь спецсимволом (например #)

var Variants: array[1..CountOfQuestions, 1..100];
...
j := 1;
while j <= s.Count - 1 do
  begin
  if s.Strings[j] = '&' then
    begin 
    QuestionText[h]:=s.Strings[j+1];
    k := 1;
    while s.Strings[j+1+k] <> '#' do 
      begin
      Variants[h, k]:=s.Strings[j+1+k];
      k := k + 1;
      end;
    j := j + k + 2; //j := j + 1 + k + 1
    AnswerQuestion[h]:=strtoint(s.Strings[j]);
    end;
  j := j + 1;
  end;