delay в delphi

[trafbite]

Знаю, что в паскале можно было использовать delay (задуржку) без всяких дополнительных описаний... А в делфи ругается. Поскажите как можно применить задержку в делфях?

[andrey4623]

я просто писал delay(1000)

[Alex21]

Sleep(milliseconds:Cardinal);

[trafbite]

я просто писал delay(1000)

вот на это и ругается...

Sleep(milliseconds:Cardinal);

Так это, насколько я знаю, просто подвешивает графическую оболочку программы, не не приостанавливает процесс ее выполнения. Т.к. у меня цикл вида:

for i:=1 to 10 do begin
sum:=a+b;
sleep(1000);
end;

Здесь, по идее, перед каждым следующим сложением прога должна затормозить на 1 секунду, но этого не происходит. А происходит следующее: она сначала прогоняет весь цикл, а потом "спит".

[Alex21]

Sleep - (также как и Delay) - задержка выполнения программы на N мс.

У вас одно и тоже сложение выполняется 10 раз, т.е. результат один.
Вот нагладный пример: (на кнопку повесьте)

for i:=1 to 10 do begin
Form1.Caption:=Form1.Caption+'*';
sleep(1000);

[Tayfun]

А если попробовать Timer использовать-?

[Alex21]

для чего?_________

[trafbite]

Да, одно и тоже действие. Это просто пример неудачный. Вообще, у меня прога должа в цикле 10 раз просматривать одну и туже интернет страничку. Т.е. просмотрела, подождала, например, 10 сек, опять просмотрела и т.д. Но она сначала этот цикл как-то непонятно прогоняет, потом загружает страничку, а потом спит. Это происходит один раз...

[trafbite]

Вот код, может подскажете что неправильно:

for i :=1 to 5 do begin
{New(PIInfo);
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
PIInfo^.lpszProxy := PChar('203.69.39.251:80');
PIInfo^.lpszProxyBypass := PChar('');
UrlMkSetSessionOption(INTERNET_OPTI ON_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
Dispose(PIInfo); }
webbrowser1.navigate('http://ya.ru');
sleep(5000);
end;

[Alex21]

вводим переменную View:byte;
в FormCreate пишем:
View:=0;
Добавляем таймер, ставим задержку сколько надо(10000 = 10 сек), пишем

if view<10 then
  begin
    inc(view);{увеличиваем на 1 за каждый цикл}
    Form1.Caption:=Form1.Caption+'*';{сюда основной код}
  end
  else
begin
  Timer2.Enabled:=false;
   view:=0;
end;

Sleep не нужен!