Zitat:
Code:
result:=result+hexes[[b]1+[/b](bytes[i] mod 16)];
Hier hast du berücksichtigt, dass Delphi-Strings 1-indiziert sind.
Gut.
In bin2hex allerdings nicht mehr
Code:
bin^ := ((Pos(hex[Pred(i shl 1)], hexes) mod 16) [b]- 1[/b]) shl 4
+ ((Pos(hex[i shl 1], hexes) [b]- 1[/b]) mod 16);
So funktioniert es perfekt.