Как сделать паузу в цикле

← →
ppcumax © (2007-04-11 00:35) [0]

Как сделать паузу в цикле for?

← →
Германн © (2007-04-11 01:09) [1]

> ppcumax © (11.04.07 00:35)
>
> Как сделать паузу в цикле for?
>

А зачем в цикле нужна пауза? Поясни суть.

← →
ppcumax © (2007-04-11 01:40) [2]

сам уже написал :)

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to 1000 do
begin
Application.ProcessMessages;
Sleep(600);
if Edit1.Text="go" then
begin
Memo1.Lines.Add(FloatToStr(i));
end;
if Edit1.Text="no" then
begin
while Edit1.Text<>"go" do
begin
Application.ProcessMessages;
Sleep(1000);
end;
end;
end;
end;

← →
Johnmen © (2007-04-11 09:42) [3]

Крута......
Вот это особенно while Edit1.Text<>"go" do ... в разрезе оказа набивать "go" :)

← →
_Аноним (2007-04-11 10:20) [4]

> Johnmen ©

Да, я тоже восхищен этим фрагментом кода.
Хочешь не хочешь, а придется)

← →
DrPass © (2007-04-11 12:57) [5]

Судя по всему, автор делает систему искусственного интеллекта с "живым" общением с пользователем

← →
clickmaker © (2007-04-11 13:03) [6]

> систему искусственного интеллекта

интеллект системы обратно пропорционален интервалу sleep?

← →
ppcumax © (2007-04-11 14:32) [7]

вместо Edit1.Text<>"go" будет IdHTTP1.Connencted=true

← →
Сергей М. © (2007-04-11 14:35) [8]

> вместо Edit1.Text<>"go" будет IdHTTP1.Connencted=true
>

Ай малацца !
Ай да кулибин !

А где, как и при каких условиях ты устанавливаешь IdHTTP1.Connencted=False ?)

← →
ppcumax © (2007-04-11 14:53) [9]

try
IdHTTP1.get("http://someurl.com/");
IdHTTP1.Connected := true;
except
IdHTTP1.Connected := false;
end;

← →
Сергей М. © (2007-04-11 14:57) [10]

> ppcumax © (11.04.07 14:53) [9]

Кетмаря позвать ?)

Или сам сообразишь, какую глупость ты сейчас сморозил ?)

← →
Reindeer Moss Eater © (2007-04-11 15:06) [11]

"От перестановки мест слагаемых сумма не меняеццо"
:)

← →
Reindeer Moss Eater © (2007-04-11 15:07) [12]

а зачем кстати вообще управлять коннектед у idHTTP?
Юмора не понял я.

ну можно и так

try
IdHTTP1.get("http://someurl.com/");
var1 := true;
except
var1 := false;
end;
if var1=true then
begin
Тут пауза
end
else
begin
...
end;

мне нужно было, чтоб при отсутствии интернета программа делала паузу

sleep();
while not do;
repeat;
waitforsingleobject()

и так далее и тому подобное

> при отсутствии интернета

Если ты живешь на Луне и ничего не знаешь о существовании других небесных тел и цивилизаций, то это отнюдь не значит , что оные "отсутствуют")

> программа делала паузу

Это как ?)

> программа делала паузу

>Это как ?)

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to 1000 do
begin
Application.ProcessMessages;
Sleep(600);
if Edit1.Text="go" then
begin
Memo1.Lines.Add(FloatToStr(i));
end;
if Edit1.Text="no" then
begin
while Edit1.Text<>"go" do
begin
Application.ProcessMessages;
Sleep(1000);
end;
end;
end;
end;

Ясно.
Сказка про белого бычка)

Как сделать паузу в цикле Найти похожие ветки