У меня есть процедура, в ней используется таймер. Но я хочу чтобы это процедура вызывалась в разных местах в одно и тоже время. Возможно ли это сделать?

А можно просто задать (Sender as TTimer)?

что значит в разных местах в одно время?
если ты хочешь чтобы она вызывалась разными таймерами, то ты можешь достучаться до таймера который вызвал её например так:

Код

case TTimer(Sender).Tag of   0: ...;   1: ...;   2: ...; end;

Это сообщение отредактировал(а) pascal - 16.9.2004, 18:03

procedure read;
Begin
with form1 do Begin
if sss[i]=' ' then Begin
case sss[i+1] of
'e' : Begin (Sender as TTimer).interval:=time; end;
'0' : begin case sss[i+2] of
'0' : begin case sss[i+3] of
'0' : begin timer2.Interval:=time;Image2.Picture.LoadFromFile('picture\klava.jpg');note:=note + ' " ';end;
end;
end;
end;end;
………………………………………………………………………………………….
Текст основной процедуры
…………………………………………………………………………………………..

end; end;
Label1.Caption:=note;
Midigen1.Play;
i:=i+4;
end;
end;

Здесь у меня два вопроса

1. как сделать так чтобы можно было использовать не один таймер, а на выбор в одно и тоже время. Так и другие компоненты которые здесь присутствуют.
2. Как в кавычках поставить одну кавычку, не двойную а одну.

Символ ' можно поставить через #39, т. е. s:='asdf ' + #39 + a + #39 + ' asdf';
результат - asdf 'a' asdf
А может можно и так s:= 'asdf'''a'''asdf'
Добавлено @ 20:22

Цитата(Mew @ 17.9.2004, 05:53)

1. как сделать так чтобы можно было использовать не один таймер, а на выбор в одно и тоже время. Так и другие компоненты которые здесь присутствуют.

Поясните тупому...