Конкурс на самый быстрый код!

[LAV45]

Всем биг спс ))

ss то у нас #$63#0 #$6F#0 #$6E#0 #$73#0
если использывать Tmp: array[0..3] of char absolute result;
#0 остаются и на выходе получаем $63006F00

Вот так лучше будет

Function GetInt(const ss:string):integer;
var tmp: array[0..3] of byte absolute result;
begin
  tmp[3] := ord(ss[1]);
  tmp[2] := ord(ss[2]);
  tmp[1] := ord(ss[3]);
  tmp[0] := ord(ss[4]);
end;