Всем привет, я в скриптах новенький(язык плохо знаю), строго не судите.
Суть скрипта: при пакете ХХХ от клиента в память записывантся цыфра х (от 0 до 3), и зависимо от цыфры в памяти идёт изменение входящево пакета.
Код:
// .
var
speed:TStrings;
// .
procedure Init;
begin
speed:=TStringList.Create;
end;
// .
procedure Free;
begin
speed.Free;
end;
// .
begin
begin
begin
if fromclient and (pck='38 2E 00 73 00 70 00 30 00 00 00 00 00 00 00') then
speed:='0';
end;
begin
if fromclient and (pck='38 2E 00 73 00 70 00 31 00 00 00 00 00 00 00') then
speed:='1';
end;
begin
if fromclient and (pck='38 2E 00 73 00 70 00 32 00 00 00 00 00 00 00') then
speed:='2';
end;
begin
if fromclient and (pck='38 2E 00 73 00 70 00 33 00 00 00 00 00 00 00') then
speed:='3';
end;
end;
begin
if speed='0' then
begin
if fromserver and (pck[1]=#$04) then pck[366]:=pck[366];
if fromserver and (pck[1]=#$04) then pck[377]:=pck[367];
end;
if speed='1' then
begin
if fromserver and (pck[1]=#$04) then pck[366]:=#$FF;
if fromserver and (pck[1]=#$04) then pck[377]:=#$01;
end;
if speed='2' then
begin
if fromserver and (pck[1]=#$04) then pck[366]:=#$FF;
if fromserver and (pck[1]=#$04) then pck[377]:=#$02;
end;
if speed='3' then
begin
if fromserver and (pck[1]=#$04) then pck[366]:=#$FF;
if fromserver and (pck[1]=#$04) then pck[377]:=#$03;
end;
end;
end.
вопрос: что должно быть вместо speed:TStrings; и speed:=TStringList.Create; (стринг неподходит точно).
Может чот нетак делаю?