Universale ToHex und FromHex procedure/function

[sirius]

Bist du dir sicher, dass das funktioniert?

Erstmal sinnloses Streichen:

Delphi-Quellcode:

setlength(res, bytes*2);
res :='';  //ist nix anders als setlength(res,0);

Eins von beiden ist sinnlos. (die erste Variante ist für die Perfomance der restlichen Funktion besser, allerdings müsste man dann den Rest auch ändern)
if i<bytes then inc(data); Das if kann raus, die Schleife wird eh beendet und dem Zeiger ist es egal wohin er zeigt.

Was ich aber überhaupt nicht verstehe ist das hier:
IntToHex(byte(data^),2) Du weist schon, wie ein set abgespeichert wird? in deinem Fall ist es 32 Byte lang und jedes Bit entspricht einem Wert. Und dieses Bit ist eben gesetzt oder nicht gesetzt.

Deswegen verstehe ich nicht, was du vor hast. Abgesehen davon, dass du mit deinem data-Zeiger viel zu weit rennst.