CoderX :: Forums - Показать сообщение отдельно

Pinko · 26.10.2011, 15:56

Код:

...
Procedure OnTimer01;
begin
buf := HStr(Хх);
SendToServerEx(ConnectName);
pck:='';
end;
begin
if FromServer and (pck[1]=#$00) then
    begin
    Aa := ReadD(12);
    Bb := ReadH(20);
    if ((Aa/Bb)=Сс) then
       begin
       Kill
       end;
    end;
end;
...

как то так

26.10.2011, 15:56	#6
Pinko Местный Регистрация: 31.05.2011 Сообщений: 130 Сказал Спасибо: 287 Имеет 23 спасибок в 22 сообщенях	Код: ... Procedure OnTimer01; begin buf := HStr(Хх); SendToServerEx(ConnectName); pck:=''; end; begin if FromServer and (pck[1]=#$00) then begin Aa := ReadD(12); Bb := ReadH(20); if ((Aa/Bb)=Сс) then begin Kill end; end; end; ... как то так __________________ Никого нельзя ничему научить, но всему можно научиться народная мудрость "Если любишь в жизни риск - форматируй жесткий диск!"