Код

procedure password; begin while i<10000001 do begin if i=1000000 then i:=0; end; end;

и собсно процедура повтор тебе не нужна выставь в компоненте таймер интервал 1 раз равный 30000 и будет тебе щастье

ну это у тебя тоже бесконечный цикл получился так как нету i:=i+1

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

Код

procedure password; begin while i<10000001 do begin i:=i+1; if i=1000000 then i:=0; end; end;

Это сообщение отредактировал(а) Satana - 5.4.2005, 18:03

Просто используй одлну переменную в одном цикле, а в процедуре так и работай с i.
Добавлено @ 18:11
В смысле для цикла задай новую локальную переменную.

Цитата(Satana @ 5.4.2005, 18:03)

while i<10000001 do

Зачем это? Почему бы бесконечный цикл не реализовать так:

Код

while True do

Цитата(Dr @ 5.4.2005, 14:45)

Так мне и нужен вечный цикл.Объясняю.I меняется каждые 30сек пока не закрывается прога.Переменная Е-пароль.Надо чтобы при условии I=E выполнялось действие.

Вот держи:

Код

var   Form1: TForm1;   I, E: integer; ... procedure TForm1.Timer1Timer(Sender: TObject); begin I:= I+1; if I = E then YourProc end;

На форме только таймер с interval = 30000 (т.к. "I меняется каждые 30сек "). Процедура не предусматривает передачу значения в переменную Е, так что это нужно делать в другой процедуре (хотя можно и в этой). Еще бы не плохо было бы в какой-нибудь процедуре задать начальное I. Например в OnShow:

Код

procedure TForm1.FormShow(Sender: TObject); begin I:= 0; Timer1.Enabled:= True; end;

Вот и все. И никакой бесконечный цикл через while или еще чего не нужен Тем более, что этот цикл подвесит твою прогу так, что не будешь знать как выйти (если заранее не предусмотришь этого).

PS. Да, и еще. Если тебе нужно, что бы I менялась в пределе от 0 до 100000, то добавь в процедурe Timer1Timer (после строчки I:= I+1;) вот эту строчку:

Код

if I = 100000 then I:= 0;