Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

sos   Найти похожие ветки 

 
ANDREI   (2004-12-01 14:21) [0]

Привет мастера! Необходимо в цикл repeat _ until вложить еще один такойже цикл (repeat) но при попытке это реализовать приложение сразу зависает. Как этого избежать? Заранее благодарен.


 
Алхимик ©   (2004-12-01 14:24) [1]


> но при попытке это реализовать приложение сразу зависает.
> Как этого избежать?

Воспользоваться отладчиком.
Сами по себе вложенные циклы зависания не вызывают.


 
Amoeba ©   (2004-12-01 14:26) [2]

Код в студию!


 
Andrei   (2004-12-01 14:44) [3]

например вот так:

button1.click(XXXXXXXXXX);
var a,b:integer;
begin
a:=0;
b:=0;
repeat
inc(a);
repeat
inc(b);
until a=10;
until b=100;
end;

это к примеру в проге все сложнее, но зависает даже это.


 
Sphinx   (2004-12-01 14:49) [4]

> repeat
> inc(a);
> repeat
> inc(b);
> until a=10;
> until b=100;

Сами внимательно посмотрите что написали :)

> repeat
> inc(b);
> until a=10;

вот и причина зависания...


 
oxffff   (2004-12-01 14:50) [5]

Уважаемый Андрей!

button1.click(XXXXXXXXXX);
var a,b:integer;
begin
a:=0;
b:=0;

 repeat
 inc(a); //////// нужно inc(b)

   repeat
   inc(b); //////// нужно inc(a)
   until a=10;

 until b=100;
end;


 
Andrei   (2004-12-01 14:53) [6]

Всем огромное спасибо!!!


 
Andrei   (2004-12-01 15:09) [7]

Ребта прошу прощения я ошибся в написании вопроса. Все правильно
я так и пишу:

button1.click(XXXXXXXXXX);
var a,b:integer;
begin
a:=0;
b:=0;

repeat
inc(b)

  repeat
 inc(a)
  until a=10;

until b=100;
end;

зависает именно это....


 
Алхимик ©   (2004-12-01 15:12) [8]


> button1.click(XXXXXXXXXX);
> var a,b:integer;
> begin
> a:=0;
> b:=0;
>
> repeat
> inc(b)
>
>   repeat
>  inc(a)
>   until a=10;
>
> until b=100;
> end;
>
> зависает именно это....


Вот именно это зависать не должно.


 
Плохиш ©   (2004-12-01 15:14) [9]

или a,b не integer ;-)


 
begin...end ©   (2004-12-01 15:15) [10]

> [8] Алхимик ©   (01.12.04 15:12)

Должно.

> [7] Andrei   (01.12.04 15:09)

Перед вложенным циклом обнуляйте переменную a.


 
begin...end ©   (2004-12-01 15:15) [11]

> [8] Алхимик ©   (01.12.04 15:12)

Должно.

> [7] Andrei   (01.12.04 15:09)

Перед вложенным циклом обнуляйте переменную a.


 
Алхимик ©   (2004-12-01 15:17) [12]


> [11] begin...end ©   (01.12.04 15:15)
> > [8] Алхимик ©   (01.12.04 15:12)
>
> Должно.


Угу. :) Глазастый.


 
Andrei   (2004-12-01 15:17) [13]

>>Вот именно это зависать не должно.
А зависает!!!
>>или a,b не integer ;-)
и a и b сто пудов Integer.


 
Алхимик ©   (2004-12-01 15:18) [14]


> [13] Andrei   (01.12.04 15:17)
> >>Вот именно это зависать не должно.
> А зависает!!!


Вот воспользовался бы отладчиком - не пришлось бы мне краснеть. :)


 
Gloomer ©   (2004-12-01 15:29) [15]

прав как всегда  begin...end ©   (01.12.04 15:15) [11]
правильно будет
var a,b:integer;
begin
b:=0;
repeat
inc(b)
a:=0;
 repeat
inc(a)
 until a=10;
until b=100;
end;


 
Andrei   (2004-12-01 15:30) [16]

С П А С И Б О ! ! !



Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.025 c
4-1099042237
WaS
2004-10-29 13:30
2004.12.12
Сымитировать нажатие клавиши F2 не посредством key_event


3-1100103136
Olga_cc
2004-11-10 19:12
2004.12.12
DBGRID


3-1100013338
Sergeich
2004-11-09 18:15
2004.12.12
параметры в ADOQuery


1-1101420575
Vir
2004-11-26 01:09
2004.12.12
Перетаскивание визуальных компонентов


1-1101544263
Александр В.
2004-11-27 11:31
2004.12.12
Сохранение позиции TTreeView после обновления