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

Вниз

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

 
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?
Юмора не понял я.


 
ppcumax ©   (2007-04-11 15:13) [13]

ну можно и так

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:14) [14]

ну можно и так

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:20) [15]

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

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


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


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


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


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


Это как ?)


 
ppcumax ©   (2007-04-11 15:29) [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 15:41) [18]

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



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

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

Наверх




Память: 0.5 MB
Время: 0.058 c
9-1148392549
Другой
2006-05-23 17:55
2007.04.29
Программа - резак для BMP


15-1175782606
IceBeerg
2007-04-05 18:16
2007.04.29
Вопрос по bat никам


15-1175234938
REA
2007-03-30 10:08
2007.04.29
Operator overloading


3-1170776645
Jeeb
2007-02-06 18:44
2007.04.29
Строки DB в TreeView


3-1169549550
iviom
2007-01-23 13:52
2007.04.29
Как поставить NULL в поле datetime через ADODateSet