ini текстовый файл

[Misha22]

Вопросы из ini не выводятся или выводятся частично(1.ini выводится,а 2.ini не выводится. Помогите пожалуйста. В 1.ini - хранится 4 вопроса.В 2.ini - хранится 4 вопроса.

procedure TForm1.Button1Click(Sender: TObject);
var
f,VV1,VV2:textfile;
   t,y,i,j,m,N,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N1:integer;
   A:string;
   mas: array of integer;
begin
 if Form1.Button1.Enabled=true then
 Form1.N5.Enabled:=true;

N:=0;
S:=0;
V:=0;

  //Вывод 1 вопроса

     AssignFile(VV1,'1.ini');
     reset(VV1);
     Readln(VV1,A);  //считывает название теста
     label1.Caption:=A;  //в label1 выводит название текста
     While Not Eof(VV1) do  //цикл подсчета количество вопросов в 1.ini
      begin
        Readln(VV1,A);
        Readln(VV1,A);
        V:=strtoint(A);
        For i:=1 to(V+1) do Readln(VV1,A);
        N:=N+1;
      end;
    //Случайный выбор
     SetLength( mas, N+1);
     for t:=1 to N  do
     mas[t]:=t;
     Randomize;
      for t:=1 to N-1 do
      begin
      N1:=Random(N-1)+1;
      if N1<>t then begin
      y:=mas[t];
      mas[t]:=mas[N1];
      mas[N1]:=y;
      end;
      end;
    // N1:=Random(N)+1;      //Случайный выбор одного вопроса
   // case N1 of
  //0:N1:=Random(N)+1;
  //1:N1:=Random(N)+1;
 // else
     for j:=1 to N do
            begin
         if j<>N1 then
        begin
          Readln(VV1,A);  //вопрос
          Readln(VV1,V);    //кол-во вариантов ответа
          for i:=1 to (V+1) do
              Readln(VV1,A);
         end
        else
            begin
            Readln(VV1,A);
            label5.Caption:=A;   // вывод вопроса в label 5
            Readln(VV1,V);
            Readln(VV1,k1);

            for m:=1 to V do
               begin
               Readln(VV1,A);
               Radiogroup1.Items.Add(A);

               end;
               end;
               end;

               CloseFile(VV1);

  //Вывод 2 вопроса
  AssignFile(VV2,'2.ini');
   reset(VV2);
    Readln(VV2,A);
    While Not Eof(VV2) do  //цикл подсчета количество вопросов в 2.ini
      begin
        Readln(VV2,A);
        Readln(VV2,A);
        V:=strtoint(A);
        For i:=1 to(V+1) do Readln(VV2,A);
        N:=N+1;
      end;
    SetLength( mas, N+1);
     for t:=1 to N  do
     mas[t]:=t;
     Randomize;
      for t:=1 to N-1 do
      begin
      N2:=Random(N-1);
   if N1=N2 then
   N2:=Random(N-1)
   else
      if N2<>t then begin
      y:=mas[t];
      mas[t]:=mas[N2];
      mas[N2]:=y;
      end;
      end;



    for j:=1 to N do
            begin
         if j<>N2 then
        begin
          Readln(VV2,A);
          Readln(VV2,V);
          for i:=1 to (V+1) do
          Readln(VV2,A);
         end
                  else
            begin
            Readln(VV2,A);
            label6.Caption:=A;
            Readln(VV2,V);
            Readln(VV2,k2);

            for m:=1 to V do
               begin
               Readln(VV2,A);
               Radiogroup2.Items.Add(A);
               end;
               end;
               end;

               CloseFile(VV2);

[Serge_Bliznykov]

Почему с Ini файлами вы работаете как с простыми текстовыми файлами? (см. модуль IniFiles)

Выложите пример ваших INI файлов. (архив можно выложить на форум)

[Misha22]

Вот посмотрите

[Serge_Bliznykov]

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

Вот посмотрите

вижу. снимаю своё замечание насчёт IniFiles - у Вас действительно простые текстовые файлы, от настоящих INI только расширение.

Код программы ещё не смотрел. Гляну сейчас.

[evg_m]

приведенный код не полон, как минимум нет двух end.

после форматирования кода становится очевидно
ЕСТЬ пропущенные end.

Почему с Ini файлами вы работаете как с простыми текстовыми файлами?

А это и есть "простые" текстовые файлы. Судя по коду, ini-формат там и близко не пробегал.

[Misha22]

добавил

[Misha22]

первый вопрос считывался с vopros1.txt,а второй вопрос с vopros2.txt