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

[PaulGreatest]

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

[dyh9l]

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

[PaulGreatest]

Впервые слышу что скрипты правятся под версию ПХ О_О
Ну не знаю , на версии 3,18 нормально работает , а на 3,5 ошибка!

[Nickers]

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

[Breadfan]

Добрый вечер , а как подравить данный скрипт на аргументацию , под версию 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;}