Universale ToHex und FromHex procedure/function

[Hawkeye219]

Zitat von yankee:

Ja, die Funktionen habe ich auch versucht zu verwenden, bevor ich sie mir selbst geschrieben habe.
Nur haben dir mir immer einfach irgendwelche Exceptiosn geworfen, die ich nicht nachvollziehen konnte.

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