Скрипт от 3,18 к 3,5 (аргументация)

[PaulGreatest]

Добрый вечер , а как подравить данный скрипт на аргументацию , под версию 3,5+

[dyh9l]

Впервые слышу что скрипты правятся под версию ПХ О_О

[PaulGreatest]

Сообщение от dyh9l

Впервые слышу что скрипты правятся под версию ПХ О_О

Ну не знаю , на версии 3,18 нормально работает , а на 3,5 ошибка!

[Nickers]

Гы а я и сижу с 3.1.8, ибо на 3.5 у мну тож критует... Попробуй поновее ПХ скачать... (Или чуть старше) твоей версии))
Там какая-то ошибка с компиляцией... (Ему нужны не просто txt а особые script... (Кому понадобилось все усложнять?) И он не запускает когда txt пихаешь... И на компиляции у мну тож ошибку кидает (Замкнутый анус))

[Breadfan]

Сообщение от PaulGreatest

Добрый вечер , а как подравить данный скрипт на аргументацию , под версию 3,5+

Описание функции "function StrToHex" или закомментируй или удали вообще.

Оффтоп

{function StrToHex(packet: string):string;
var
  i:integer;
  tmp:byte;
  function ByteToHex(b: byte): Char;
  begin
    if b<10 then result:=chr(b+$30)
      else result:=chr(b+$37);
  end;
begin
  result:='';
  for i:=1 to length(packet) do begin
    tmp:=ord(packet[i]) div 16;
    result:=result+ByteToHex(tmp);
    tmp:=ord(packet[i]) - tmp*16;
    result:=result+ByteToHex(tmp)+' ';
  end;
end;}