мне в принципе без разницы главное чтобы ресурсов не ел и был отключен
Timersend1 это myproc
Код:
procedure TForm1.Timersend1(Sender: TObject);
var
parelelPK1: TstringList;
CR1: boolean;
shet1,conec1: integer;
UIN,Msg: string;
begin
if CR1 then begin
parelelPK1:= TstringList.Create;
parelelPK1.Assign(PK1);
pk1.clear;
conec1:=parelelPK1.Count;
shet1:=0;
CR1:=false;
end;
UIN:=copy(pk1.strings[shet1],1,pos('=',pk1.strings[shet1])-1);
Msg:=copy(pk1.strings[shet1],pos('=',pk1.strings[shet1])+1,length(pk1.strings[shet1]));
obrabotchik1(UIN, Msg);
shet1:=shet1+1;
if shet1>conec1 then TTimer(Sender).Enabled := False;
end;
меня интересует будет ли для каждого таймера свое тобишь, создался таймер в переменной у него присвоилось parelelPK1.Assign(PK1); и если создастся еще один таймер не присвоется ли к этому таймеру уже новое значение