PDA

Просмотр полной версии : Ошибка синтаксиса при использованиие HStr(``);


tiranosaur
15.10.2009, 23:05
begin
if FromServer and (pck=HStr(`1b 04 00 00 00 `))
then begin
buf:=HStr('14 8A 52 17 40 00 00 00 00');
SendToServer;
end;
end.

? Почему ругается? Замена на pck=#$1b #$04 #$00 #$00 #$00 не помогла(((

alexteam
15.10.2009, 23:15
1. называйте темы НОРМАЛЬНО. заманали свамими "памагите" и прочей херней не обобщающей (либо уж слишком обобщающей) тематику топика. заманало переименовывать или удалять к чертям.

2. ответ:
патамушо - ` а не '
патамушо pck=#$1b_#$04_#$00_#$00_#$00 а не pck=#$1b#$04#$00#$00#$00
и вообще..
if FromServer then
case pck[1] of
#$01:
begin
case readd(2) of
2:
begin
buf := HStr('14 8A 52 17 40 00 00 00 00'); //за такое я бы убивал тоже.. в зародыше.. но разбираться с структурой пакета мне влом. так что оставим как есть.
SendToServer;
end;
end;
end;
end;