Цикл

[ombre_11]

Код Delphi

 randomize;
   num:=random(30);
   inc(num);
   i:=1;
   repeat
   begin
    label1.Caption:= Q+floattostr( num);
    label2.Caption:= test[num-1].que;
    label3.Caption:=inttostr(i);
    RadioGroup1.Items.Strings[0]:= '1) '+test[num-1].v1;
    RadioGroup1.Items.Strings[1]:= '2) '+test[num-1].v2;
    RadioGroup1.Items.Strings[2]:= '3) '+test[num-1].v3;
    RadioGroup1.Items.Strings[3]:= '4) '+test[num-1].v4;
    zero;
    ri:= test[num-1].r;
   end;
   i:=i+1;
   until not i<>25;

при запуске переменная i не изменяется а цикл бесконечный. В чем ошибка?



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Аватар]

Очень радуют выражения такого типа, да еще не правильно записанные

until not i<>25;

Правильно записать

until not (i<>25);

Ну и совсем уж по хорошему

until i=25;

[Arigato]

Я знаю более красивый способ:

until not (i < 25) and not (i > 25);

[Serge_Bliznykov]

во-первых, бессмысленно что-то присваивать визуальным компонентам в цикле, если Вы не даёте системе обрабатывать очередь сообщений.
если вам реально нужно видеть в label3.Caption изменения i, то нужно добавить задержку (Sleep) и/или вызвать Application.ProcessMessages;

во-вторых, с чего Вы решили, что цикл бесконечный? Проходили в отладчике пошагово?
что за неизвестная процедура zero? Вы в ней i не обнуляете часом?!

в-третьих, код у Вас очень не надёжный. в очень многих местах может банальный exception вылетать..

в-чётвертых, зачем писать until not i<>25; ?!
не проще ли записать

until i=25;

?


updated
да, с замечанием насчёт not i<>25 я явно опоздал!

[Аватар]

Arigato

а так еще красивше

until not (not (i >= 25) or not (i <= 25));

[ombre_11]

пробывал ставить меньшее число в условие, первые два раза цикл работает правильно, а потом начинается зацикливание

[Serge_Bliznykov]

значит, Вы что-то делаете неправильно.


p.s. Извините, но если Вы не будете отвечать на вопросы, а сообщать только о том, что, по вашему мнению, код не работает, не думаю, что Вы далеко продвинетесь в решении своей проблемы