Создание паузы

[kakawkin]

Всем известная функция Delay у меня не пашет((
какие есть еще варианты ?

[Пепел Феникса]

sleep WaitFor
смотря какого рода пауза нужна то.

[kakawkin]

просто пишу сетевую программу и там цикл (несколько подключений)
И надо чтобы между login и sendmessage была пауза в секунды 2-е т.к. login длиться не более 2-ух секунд.

А то неуспевая подключиться уже отправляет сообщение - там ошибки и т.д.

sleep неподходит т.к. форма должна быть активной а он вроед останавливает работу приложения

[Пепел Феникса]

вообще то останавливает работу потока.

из простого посоветую таймер тогда.

а вообще у вас должна быть возможность понять что логин завершен(в случае многопоточности синхронизировать нужно состояние потока с данными в основном, то есть чтоб основной поток знал об успехе логина, и потом давал следующую команду)

[kakawkin]

вот мой код:

...
 a:=2;
 for i:=1 to a do
  begin
  ...
   Arr[i].Login;
   Arr[i].SendMessage(strtoint(LabeledEdit1.Text),LabeledEdit2.Text);
  end;
end;

Нашел вот еще функцию для моего компонента: Arr[i].LoggedIn (boolean)

А если будет вида:

Arr[i].Login;
if Arr[i].LoggedIn=true then
Arr[i].SendMessage(strtoint(LabeledEdit1.Text),LabeledEdit2.Text);

т.е. будет ли он ждать или пропуская будет переходить на следующий шаг массива ?

[Пепел Феникса]

у компонента TICQClient есть событие при подключении, используйте его + Sender в событии.

[tanyalove]

11) Program TN;
type Ta=array[1..11] of integer;
var a,b:Ta;
y:real;
i:integer;
function horner(x:Ta;x1:real):real;
var s:real;i:integer;
begin
s:=0;
for i:=11 downto 1 do
s:=s*x1+x[i];
horner:=s;
end;
begin
for i:= 1 to 11 do
a[i]:=i;
for i:=11 downto 1 do
b[i]:=i;
readln(y);
writeln('p1=',horner(a,y):6:2);
writeln('p2=',horner(b,y):6:2);
readln;
end.
накпишите пожалуйста схему на эту программу

[IT-man]

накпишите пожалуйста схему на эту программу

начало --цикл --цикл --ввод--вывод--конец