Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
23. Dez 2005
Du könntest höchstens noch
result:=result+hexes div 16)];
result:=result+hexes mod 16)];
durch
result:=result+hexes shr 4)];
result:=result+hexes and $F)];
ersetzen :wink: .
Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
23. Dez 2005
:gruebel: Nein. Es geht doch nicht um den Argumenttyp, sondern um deine Konstante, die eben ein Delphi-String ist. Wenn im Hexstring beispielsweise '0' steht, gibt Pos 1 zurück und so steht es dann auch in data.
Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
23. Dez 2005
Hier hast du berücksichtigt, dass Delphi-Strings 1-indiziert sind.
Gut.
In bin2hex allerdings nicht mehr :wink:
bin^ := ((Pos(hex, hexes) mod 16) - 1) shl 4
+ ((Pos(hex, hexes) - 1) mod 16);
So funktioniert es perfekt.