Показать сообщение отдельно
Старый 05.10.2010, 18:47   #4
Местный
 
Регистрация: 27.01.2009
Сообщений: 154
Сказал Спасибо: 23
Имеет 26 спасибок в 19 сообщенях
guplen пока неопределено
По умолчанию

Case Должен заканчиваться end'ом.

Код:
Procedure OnTimer01(Sender : TObject) ;
begin
    case TimerCyrcle01 of
          1: begin       
                  buf := hstr('04 76 19 10 48') ;
                  SendToServerEx(name) ;
             end;
          2: begin       
                  buf := hstr('21 6D ... 00') ;
                  SendToServerEx(name) ;
             end;
          3: begin       
                  buf := hstr('21 6D ... 00') ;
                  SendToServerEx(name) ;
             end;
    end;
end;

Последний раз редактировалось guplen, 05.10.2010 в 18:53.
guplen вне форума   Ответить с цитированием
За это сообщение guplen нажился спасибкой от: