Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать паузу в цикле [D7, XP]

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

Сергей М. (2007-04-11 15:41:00) [1]
Ясно.
Сказка про белого бычка)

ppcumax (2007-04-11 15:29:00) [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;

Сергей М. (2007-04-11 15:21:00) [3]

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

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

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

Это как ?)

Reindeer Moss Eater (2007-04-11 15:20:00) [4]
sleep();
while not do;
repeat;
waitforsingleobject()

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

ppcumax (2007-04-11 15:14:00) [5]
ну можно и так

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

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

ppcumax (2007-04-11 15:13:00) [6]
ну можно и так

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

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

Reindeer Moss Eater (2007-04-11 15:07:00) [7]
а зачем кстати вообще управлять коннектед у idHTTP?
Юмора не понял я.

Reindeer Moss Eater (2007-04-11 15:06:00) [8]
"От перестановки мест слагаемых сумма не меняеццо"
:)

Сергей М. (2007-04-11 14:57:00) [9]

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

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

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

ppcumax (2007-04-11 14:53:00) [10]
try
IdHTTP1.get(' http://someurl.com/');
IdHTTP1.Connected := true;
except
IdHTTP1.Connected := false;
end;

Сергей М. (2007-04-11 14:35:00) [11]

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

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

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

ppcumax (2007-04-11 14:32:00) [12]
вместо Edit1.Text<>'go' будет IdHTTP1.Connencted=true

clickmaker (2007-04-11 13:03:00) [13]

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

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

DrPass (2007-04-11 12:57:00) [14]
Судя по всему, автор делает систему искусственного интеллекта с "живым" общением с пользователем

_Аноним (2007-04-11 10:20:00) [15]

> Johnmen ©

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

Johnmen (2007-04-11 09:42:00) [16]
Крута......
Вот это особенно while Edit1.Text<>'go' do ... в разрезе оказа набивать 'go' :)

ppcumax (2007-04-11 01:40:00) [17]
сам уже написал :)

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;

Германн (2007-04-11 01:09:00) [18]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »