Universale ToHex und FromHex procedure/function

[yankee]

Zitat von Hawkeye219:

In Anlehnung an deine Routinen könnte man sie so kapseln:

Delphi-Quellcode:

function Bin2Hex (const Data; Size: Cardinal): string;
begin
  SetLength (Result, 2 * Size);
  BinToHex (@Data, PChar(Result), Size);
end;

procedure Hex2Bin (const s: string; var Data);
begin
  HexToBin(PChar(LowerCase(s)), @Data, Length(s) div 2);
end;

Gruß Hawkeye

Ähm... jooo... das funktioniert ^^.
Jetzt frag ich mich ja schon, was ich eben falsch gemacht habe, aber ich würde sagen, damit kann man das Thema voll getrost vergesse .