So, jetzt noch:
Delphi-Quellcode:
j := Ord (st[1]);
if j>57
then dec (j, 65)
else dec(j,48);
k := Ord (st[2]);
if j>57
then dec (k, 65)
else dec(k,48);
st2[i] := Char (j
shl 4
or k);
anstatt
st2[i] := Char(StrToInt('$' + st[1] + st[2]));
und dann wird das auch was
(Bei mir von 1.39 auf 0.18 Sekunden)