![]() |
|
#1
|
||||
|
||||
![]() Код:
potokkomand1:=TstringList.Create; PK1:=TstringList.Create; PK1.add('7559384=hello'); PK1.add('7559384=hello'); PK1.add('7559384=hello'); potokkomand1:=PK1; Timer1potok:=True; If Timer1potok = True then begin Timer1potok:=false; if potokkomand1.Count-1 > 6 then begin for mem1:=potokkomand1.Count-1 Downto 0 do begin UIN1:=copy(potokkomand1.strings[mem1],1,pos('=',potokkomand1.strings[mem1])-1); Msg1:=copy(potokkomand1.strings[mem1],pos('=',potokkomand1.strings[mem1])+1,length(potokkomand1.strings[mem1])); potokkomand1.Delete(mem1); Form1.obrabotchik1(UIN1, Msg1); sleep(200); end; end else begin for mem1:=potokkomand1.Count-1 DownTo 0 do begin UIN1:=copy(potokkomand1.strings[mem1],1,pos('=',potokkomand1.strings[mem1])-1); Msg1:=copy(potokkomand1.strings[mem1],pos('=',potokkomand1.strings[mem1])+1,length(potokkomand1.strings[mem1])); potokkomand1.Delete(mem1); Form1.obrabotchik1(UIN1, Msg1); end; end; end; кто скажет почему не работает, ставил точки останова, до функций выделенных красным, почемуто не выполняются они, хотя синие выполнялись |