HEX Wertin in Binären Wert umwandeln

[Andidreas]

aloha zusammen,

wie kann ich mir denn hex wert "3D" in den binären wert "00111101" mit einem delphi programm umwandeln lassen?

in excel heißt die funktion "hex2bin" (befindet sich in den analysis add ins) falls das jemanden weiterhelfen sollte...

gibt es für delphi eine ähnliche funktion???

[Klaus01]

function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer

Grüße
Klaus

[Andidreas]

die funktion hatte ich auch schon gefunden, aber so wie ich in ein paar beiträgen hier im forum gelesen habe, wird da wohl nicht das richtige rasukommen! bzw. nicht der wert denn ich gern hätte!

[Andidreas]

folgendes hab ich über google gefunden...
und es funzt au :-)

Delphi-Quellcode:

function tmain_form.Hex2Bin(Hexadecimal: string): string;
const
  BCD: array [0..15] of string =
    ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
    '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
var
  i: integer;
begin
  for i := Length(Hexadecimal) downto 1 do
    Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;
end;